NfIND / N PAPA ,$UARIO$ D ORDNADOR A. 

160 Ptas. 

Canarias, Ceuta y Melilla 65 ptas. 

/VIETODOS DE 
.. OPDENA C/ON 
OPTIhflZADOS 
OFIClNA 
MODERNA 
ESTA AQUI: 

CONTROL DE 
STOCKS CP/M 

nstrucciones 

de rotaci6n y 
desplazamiento: 
eiemplos de 
aplicacin 

VENTANA DE 
COMANDOS 
INTERACTIVOS CON 
WINDOWKEY 

OFTWARE 

La marca del Zorro 
en las pantallas 
de Amstrad 



" R "L/CA AL OELEBRE "0£ IN:;  D'E LA$ M  -" UI 
EL JU GO MA$ ADIOTIVO 61UE PUEDA$ N ON , 



$OLICITUD DE NUMERO$ A T£ASADOS 
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matrtces, de c6mo se crean y de c6mo se mane/an, es 
hora de usarlas en una aplicaci6n prctica de usa muy 
careen en informal/lea. 

2 Banco de 
pruebas 

La oficina moderna, para gestionar eficazmente alga 
tan compleio coma una empresa, requiere de 
herramientas coda vez rods potentes y sofisticadas. 
Amstrad tiene a/go que decir a este respecto. 

resl,lente 
Maria Andrino 
Conseiero Delegado 
Jos I. G6mez-Centuri6n 
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Concha Guti,rrez 
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Imprime 
ROTEDIC, S. A. Crta. de Ir0n. 
Kin. 12,450 (MADRID) 
Fotocomposici6n 
Novocomp, S.A. 
Nicol6s Morales, 38-40 
Fotomec6nica 
GROF 
Ezequiel Solana, 16 
Dep6sito Legal: 
M-28468-1985 

Derechos exclusivos 
de Io revista 
COMPUTING with 
the AMSTRAD 
Represenlante para Argenhna, Chile, 
Uruguay y Paraguay, Cia. 
Americana de Ecliciones, S.R.L. Sud 
America 1.532. Tel.: 21 24 64. 1209 
BUENOS AIRES (Argenlina). 
M. H. AMSTRAD ro se hate 
necesadamente soiidaria de 
opiniones verlidas par sub 
cotahoradores en los afliculos 
hrmados. Reservados todos los 
derechos. 
Se solicilar6 control OJD 

Firma 

An  lisis I • 

Antes de aplicar un a/goritmo de ordenaci6n a alga, 
no es mala idea ?repararlo para que la dasificacion 
tarde el minima ti,',mpo posible. Una tcnica, no la 
me/or pero sila m:,,y simple, es el mfodo hsh. 

8 Mr. Joystick 

El programa se llama "El Zorro". No necesita de 
mucha introducci6n. Uno de los mds populates heroes 
de todos los tiempos cobra vida en /a panta/la de,/ 
Amstrad. 

Serie Oro I 
Microfruits es una simulaci6n de una mquina 
tragaperras que tiene el gran mErito de estar 
/ntegramente rea/izada en Basic. los grdficos merecen 
set vistas. 

4 ProgramAccMn 

E/ Amstrad posee a/go muy dill:/as tedas de 
[unc/6n redefinibles. Pero t/enen un Jnconveniente: hay 
que acordarse de/o que hemos puesto en cada redo. 
Buena, Io tienen hasta ahora. Programacci6n as 
exp/icar5 par qu6. 

M6quina 
Los inuciones de rotaci6n y desplazamlento, taf 
vez una de los ross dif[ci/es de dominar y entender, 
poseen aplicaciones prdcticas muy potenfes, que 
justifican su importancia y dificultad. 
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Ao II • Numero 23 • 4 de Febrero al I0 de Febrero 1986 
160 plas. (incluido I.V.A.) 

Precio Caner/as, Ceula y Me/ilia 155÷ 10 ptas. sobretasa area. 

Primera ! 
plane I 

Aple a par todas. Pro/og pare Amstrad. 

Primeros 
pesos 

Despuds de hablar durante largo tiempo de/as 
matrlces, de c6mo se crean y de c6mo se mane/an, es 
hare de usarlas en una ap/icaci6n orctica de usa muy 
comdn en informdtica. 

'x / 

8 Mr. Joystick 

El programa se llama "El Zorro". No necesita de 
touche btroducci6n. Uno de los rods populares hroes 
de todos los liempos cobra vide en la pantalla de,/ 
Amstrad. 

Serie Oro 0 
Mirofruits es una simu/ad6n de una md;quina 
tragaperras que tiene el gran mrito de ester 
/ntegramente realizada en Basic. los grdficos merecen 
set vistas. 

2 Banco de 
pruebos 

Lo oficina moderna, pare gestionar eficazmente alga 
tan comple/o coma una empresa, requiere de 
herramientas coda vez rods potentes y sofisticadas. 
Amstrad tiene alga que decir a este respecto. 

4 ProgramAcci6n 

El Amstrad posee alga muy dti/: los redes de 
[unci6n redefinib/es. Pero tienen un inconveniente: hay 
que acordarse de Io que hemos puesto en coda teda. 
Buena, Io tienen haste ahora. Programacci6n as 
explicar par qud. 

,, 1. ,28 
Maquma 

Antes de aplicar un a/goritmo de ordenaci6n a alga, Los m#rucaones de rotaci6n y desplazamiento, tel 
no es male idea ,nrepararlo pare que la clasificaci6n vez una de/as rods difici/es de dam/nor y entender, 
tarde el minima timpo posible. Una tcnica, no la poseen aplicaciones prcticas muy potentes, que 
mejor pero s/ la m::y simple, es el mdtodo ¢¢hash. just/f/can su importancia y dificultad. 

/COHOeYAMSTRAD 3 
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LENGUAJES IA 

dealogic comer- 
cializa en Espaa Le-Lisp, una versi6n muy 
potente del Common Lisp para sistemas ba- 
sados en MS DOS, PC DOS y para el 
Macintosh. 
Para los IBM y compatibles, la configura- 
ci6n minima de memoria requerida es de 256 
Kbytes. Esta gran cantidad de memoria se 
debe a que todos los lenguajes de IA la con- 
sumen rcpidamente, para poder Ilevar a ca- 
bolas complejas operaciones que se les exije. 
Fn el caso del Mac, se necesitan 512 kbytes 
de RAM; esto se debe probablemente a que 
el Le-Lisp para el Macintosh usara la inter- 
face de usuario tipica, con iconos y venta- 
has, Io cual consume mucha memoria, jun- 
to con que los creadores del lenguaie habr6n 
aprovechado la oportunidad de hacer que 
se pueda usar toda la memoria disponible, 
por aquello de la potencia. 
El distribuidor clama que su lenguaie es 
apropiado para pr6cticamente cualquier 
aplicaci6n, no solamente los tipicas de pro- 
ceso de palabras propias de la IA. 
Se supone que se pueden realizar con to- 
da comodidad c61culos cientificos e ingenie- 
riles, adems de cosas como sistemas exper- 
los y proceso del lenguaje natural. 
Una faceta muy importante de Le-Lisp, y 
que los implementaciones de este lenguaje 
comienzan a tener cada vez m6s a menudo 
en ordenadores personales, es la existencia 
de un compilador: una vez creado el pro- 
grama y depurado mediante un programa 
de tipo Debugger (tambidn induido), entra 
en acci6n el compilador para tratar de ace- 
lerar al m6ximo la ejecuci6n del programa, 
pues todas las aplicaciones escritas en int6r- 
pretes, y m6s las de los lenguajes IA, son de 
ejecuci6n muy lenla. 
La constante proliferaci6n de lenguojes IA 
no s61o sucede en el campo de los ordena- 
dores personales; tambi6n parece que le ha 
Ilegado el turno al Amstrad. 
La casa Hisoft esta desarrollcndo para 1 
un lenguaje Prolog, descendiente de Isp y 
clave del proyecto japon#s de la Quinta Ge- 
neraci6n de ordenadores. El progroma se 
encuentra todavia en estado de prototipo, 
si bien en un estado avanzado de desarro- 
Iio, y todavia no tenemos noticias concretas 
de sus caracteristicas y posibilidades. Espe- 
ramos que aparezca pr6ximamente en In- 
glaterra, y desconocemos, tambi6n, su fecha 
de comercializaci6n en nuestro pais. 

APPLE. A POR 
TODAS 

 porte de la noticia 
de que el Apple II ser6 compatible 
con el Macintosh, suponernos que 
mediante el uso de alguna interface 
de usuario similar, tipo WIMP, el 
bombazo estall6 cuando Apple 
Cornputer cornunic6 el pr6ximo lan- 
zamiento de dos nuevos ordenado- 
res tipo Mac, uno para enero de es- 
te ao y otro para un poco rn6s ade- 
lante, dentro tarnbi6n del 86. 

rirnera 
piano 

Sobre las especificaciones de los 
nuevos rnodelos, poco o nada se sa- 
be a0n; sin embargo, se especula 
con que Apple ernplear6 como mio 
,'oprocesador de los nuevos Mac el 
68020 de Motorola, una aut6ntica 
<<salvajada> de rnicroprocesador de 
32 bits, junto con la posibilidad de 
que vengan con rnucha rnas merno- 
ria en su configuraci6n base. 

IIIIILHIIII}IIIIIIIIIIIIIIIIIIII}IIII 

ITT XTRA XP 

ITT ha creado un 
nuevo .rdenador personal compati- 
ble con la gama IBM PC/XT/AT de re- 
ducido..precio y altas prestaciones. 
Este basado, c6rno no, en el 
80286 de Intel, funcionando a 8 me- 
gahertzios, yen su configuraci6n b6- 
sica posee 512 kbytes de RAM. Co- 
mo todos los cornpatibles AT, puede 
usar el sisterna operativo MS DOS y 
el XENIX, versi6n del UNIX que per- 

rnite soportar un entorno de trabajo 
rnultiusuario y rnultitarea. 
El sistema puede arnpliarse hasta 
1,64. Megas de RAM, y existen varias 
versiones con diferentes configura- 
ciones en Io que se refiere al alma- 
cenarniento rnasivo de datos, es de- 
cir, discos duros de 10 y 20 Megas, 
ademcs del disco floppy de 1,2 Me- 
gas. 
ITT asegura que su sisterna es uno 
de los rn6s veloces del mercado, te- 
niendo en cuenta el precio. 
Dice tarnbi6n que el procesador 
80286 es ideal para aplicaciones in- 
dustriales o de negocios que requie- 
ran manejo exhaustivo de grficos y 
cornunicaciones. 

Ic,oeoee)' AMSTRAD 5 



Ha Ilegado la hora de poner la guinda al pequefio 
¢¢pasteh que hemos ido haciendo mediante 
elementos sencillos pero muy tiles y que nos 
habr6n dado ¢omo resultado un conocimiento 
bastante extenso sot)re una de las herramientas 
m6s utilizadas en programaci6n: las matrices. 

eguramente la 
mejor forma de Ilegar a comprender 
a la perfecci6n toda una serie de 
conceptos te6ricos de cualquier tipo 
es seguir paso a paso y despacito el 
desarrollo de un problema prctico 
en el que se apliquen todas las cleft- 
niciones, o al menos la mayor/a, que 
les hemos contado anteriormente. 
Pues lvamas a ella! 
Lo primero que debemos hacer es 
definir y delimitar claramente el pro- 
blema que queremos resolver. A 
continuaci6n, y una vez analizado, 
procedemos al diseo de su resolu- 
ci6n dividiendo en pequeos trozos 
que realizan unas acciones m6s con- 
cretas que la general y, por tanto, se- 
r m6s sencillo para nosotros fabri- 
car un programa que haga Io que 
queramos en cada una de estas ac- 
ciones particulares. 
Una vez que tengamos soluciona- 
dos todos estos problemitas, Io 0ni- 
co que nos queda es unir convenien- 
temente los modulitos que hemos co- 
dificado y formar un gran programa 
que cumpla con todas las especifica- 
cones y ejecute correctamente las 
acciones que definimos en el prableo 
ma general, es decir: ique funcione! 

Disefio de I 
un programa 

Vayamos, pues, al grano. Nuestro 
caso va a ser el de un programador 
que ha de codificar un programa 
que cree, modifique y haga todo Io 

que se nos pueda ocurrir con los da- 
tos de los empleados de una empre- 
sa. ;,Le parece muy camplicacla? 
;,Qu datos son los que vamos a 
manejar? Todos los que usted quie- 
ro, Nosotros pero, nSoe s epxet  , quOer conV  I 
cldsicos nos puede valer. Pot un la- 
do tendremos los particulares: nom- 
bre y apellido, domicilio y adem6s 
usaremos los laborales como pue- 
den ser el n0mero de personal, la re- 
ferencia o secci6n de trabajo, la ca- 
egoria y el sueldo. 
Vamos a suponer que la empresa 
que nos ha pedido este programa ha 
previsto que como m6ximo va a te- 
ner 100 empleados, iNos imagina- 
mosque todos estamos pensando ya 
en agrupar los datos de cada tipo en 
matrices de 100 elementos! ,No? 
Pues si. Vamos a definir y dimen- 
sionar las matrices que van a conte- 
ner los datos de los empleados de es- 
ta empresa. Para ello utilizamos el 
programa I. 

Programa uno 

En 61 dimensionamos tantos arrays 
como datos queramos tener de ca- 
da empleado. El nOmero mximo del 
subindice de uno de sus elementos 
est6 muy claro que ser6 100 ya que 
6ste es el ngmero m6ximo de em- 
pleados previsto. 
Los datas de tipo num6rico estar6n 
formando parte de matrices de ele- 
mentos num6ricos: los sueldos --nO- 
meros-- deben estar contenidos en 
arrays de este tipo y por eso hemos 
definido uno tal como: 
DIM sueldo (100) 
Las caclenas, o datos literales, se 
almacenar6n en matrices de elemen- 
tos alfanum6ricos: el nombre -- 

cadena de literales-- estar6 incluido 
en el array dimensionado: 
DIM nombreS (100) 
Resumiendo, estructuramos los da- 
tos de forma que cada uno de ellos 
sea un elemento de una matriz nu- 
m6rica o alfanum6rica que agrupe 
todos los de unas determinadas ca- 
racteristicas: sueldos por un lado, ca- 
lies por otro, etc. 
Quiz usted tambi6n haya pensa- 
do que una vez dimensionados los 
datos Io m6s oportuno ser6 definir a 
continuaci6n qu6 operaciones quere- 
mos realizar con ellos. Pensemos. 
La primera ser6 crear un fichero 
--es obvio ;,no?--. Una vez creado, 
el siguiente paso podria ser incluir 
datos. Esta opci6n se utilizar para 
dar de alta en la empresa a un nue- 
vo trabajador. 
©tra de las posibilidades es que 
tengamos que dar de baja a un emo 
pleado o quiz6 modificar los datos 
de otro. , 
Tambi6n tendremos que contem- 
plar qu? se pueda buscar toda la in- 
formaci6n de una determinada per- 
sona. 



• O 

Por Oltimo, los datos contenidos en 
la memoria no se guardan con el 
programa al grabar ste en el disco. 
iHorror! Los perderemos entonces. 
Tendremos que teclearlos cada vez 
que ejecutemos el programa. 
No se preocupe. Como programa- 
dores avispados que somos, ustedes 
y nosotros, ya hemos previsto esta si- 
tuaci6n, iUna de las acciones que 
realizar6 este programa es salvar to- 
dos los datos en disco o cinta! 
Y c6mo volver a meterlos en la 
memoria despus de cargar el pro- 
grama Ya veremos c6mo hacerlo. 
Asi que parece que nuestro pro- 
grama tendr que realizar siete ac- 
ciones diferentes sobre los datos de 
los empleados de la empresa. 
-- CREAR nuevo fichero. 
-- INCLUIR datos. 
-- BORRAR. 
-- MODIFICAR. 
-- BUSCAR. 
-- CARGAR datos de cinta/disco. 
-- SALVAR datos en cinta/disco. 
Para dirigir la ejecuci6n del pro- 
grama para que realice uno de es- 
tos cometidos utilizaremos un modu- 
lito semejante al programa 2. 

Programa dos 

En 61 imprimimos toda la informa- 
ci6n sobre las opciones que tendrc 
nuestro programa --lineas 1020 a 
1120. 
Despu6s pedimos el nOmero de la 
acci6n a realizar sobre nuestros da- 
tos y Io almacenamos en la variable 
opci6n --linea 1140. 
Laslineas 1150a 1210 son lasque 
dirigen la ejecuci6n del programa a 
un lugar determinado. Dependiendo 
que se cumpla o no una condici6n, 
el programa hace o no una instruc- 
ci6n. 
En nuestro caso, la condici6n es 
que si <opci6n tiene un valor com- 
prendido entre 1 y 7, saltamos 
--GOT©...-- a una determinada li- 
nea. La instrucci6n GO TO hace que 
saltemos directamente al nOmero de 
linea que tiene colocado detr6s. Alli 
continuamos con la ejecuci6n del 
programa. 
Si opci6n no est6 comprendida en- 
tre 1 y 7 --no cumple con las ante- 
riores condiciones-- saltamos a la li- 

nea 1140 para pedir una nueva op- 
ci6n, esta vez correcta. 
Y as/es a grandes rasgos como 
funciona un sistema de menOs. Esta- 
mos seguros que puede mejorarle y 
perfeccionarle pero como indicaci6n 
puede valer 6ste. 
Una vez elegida alguna opci6n, 
vamos a intentar ir poco a poco vien- 
do c6mo las realizariamos. En qu 
consistir crear un nuevo fichero (opo 
ci6n 1)? iElemental, mi querido ami- 
go! Eche una ojeada al programa 3 
y Io comprender6 enseguida. 

Programa tres 

En las lineas 2020 a 2100 borra- 
mos de la memoria los contenidos de 
las matrices en las que hemos alma- 
cenado los valores de los datos de los 
empleados que trabajan en la em- 
presa. 
Vemos que la orden ERASE tam- 
bin libera la memoria del espacio 
que habia reservado para elias. En 
este momento no existe ninguna de 
estas matrices para el ordenador. 
/ctoor AMSTRAD 7 



Han desaparecido junto con Io que 
contenian. 
Pero no tenga cuidado. Las volve- 
remos a definir con las lineas 2110 
a 2190 pero esta vez las numricas 
--contienen ngmeros-- estar6n ini- 
cializadas a cero y las alfanumricas 
--contienen literales-- Io estar6n con 
la cadena vacia. 
Asi pues, ya las tenemos prepara- 
das para volver a contener nuevos 
datos y hemos visto c6mo se pueden 
redefinir. 
Con la linea 2200 volvemos al me- 
n0 principal que nos pedir6 otra nue- 
va opci6n. 
Otra de las acciones a realizar es 
INCLUIR datos en el fichero (opci6n 
3). /.De qu se trata? Muy f6cil. 
Cuando se da de alta un trabajador 
en la empresa tenemos que almace- 
nat todos sus datos en cada una de 
las matrices que hemos definido pa- 
ra contenerlos. 
Mediante el programa 4 realizare- 
mos esta funci6n: 

Programa cuatro 

Con las ffneas 3040 a 3120 intro- 
ducimos los nuevos valores dentro de 
cada una de las matrices en el espa- 
cio reservado para el elemento indi- 
cado pot el contenido de la variable 
indice. 
Pero, Lc6mo determinamos el lu- 
loar exacto en el que debemos hacer- 
? Se atreve a contestarnos? AI 
crear el fichero, el elemento cero de 
la matriz que contiene los n6meros 
de personal de los empleados, num. 
pers, tiene el valor 0 --se inicializa 
a 0 como el resto de los que compo- 
nen la tabla. 
Si cada vez que incluimos el con- 
junto de datos de un trabajador 
aumentamos este elemento en uno, 
podemos utilizarle para almacenar 
en el n6mero de empleados cuyos 
datos ya est6n metidos dentro del fi- 
chero. 
Es evidenfe que si confiene el 61ti- 
mo eJemento lJeno de Ja matriz, al su- 
marie 1 fenemos el valor dei indice 
dei siguienfe elemento de ia tabla, es 
decir, el primero que est6 vacio. 
Por fanto, en la linea 3030 hace- 
mosque la variable fndice contenga 
el nOmero de elementos de Ja labia 
donde fenemos que incluir los nuevos 
datos. 
No olvidemos que nos queda ac- 
tualizar el nOmero de elementos Ile- 
nos. Para ello, tenemos la linea 3130 
que es un alarde de obediencia, se 

encarga de ello y nos deja prepara- 
do este nOmero --numpers (0)-- pa- 
ra inclusiones posteriores. 
De modo an61ogo a los casos an- 
teriores, la Iinea 3140 nos envia otra 
vez al menO principal. 
Como ve de nuevo utilizamos el 
elemento cero de una matriz para 
contener el nOmero de elementos de 
la misma que est6n Ilenos. Recuerde 
que es de bastante utilidad. 
Ya que sabemos incluir datos den- 
tro de un fichero, vamos ahora a 
realizar la operaci6n contraria: BO- 
RRAR datos. Esencialmente consiste 
en dar de baja todos los datos co- 
rrespondientes a un determinado 
empleado. Hag6moslo con el pro- 
grama 5. 

Programa cinco 

En 1 primeramente el Amstrad 
nos pide el nombre del empleado 
yos datos queremos borrar --linea 
4030. 
Por medio del bucle WHILE... 
WEND --lineas 4050 a 4070-- bus- 
camos el indice que tiene el elemen- 
to que contiene el nombre a borrar. 
Inicializamos la variable <contador 
a 1 --linea 4040-- e incrementamos 
su valor en 1 cada vez que se ejecu- 
te el bucle anterior. 
Cuando se cumpla la condici6n de 
salida --que el nombre que hemos 
metido en nombre$ sea igual que el 
de nombre$ (contador)-- la variable 
contador tendr6 el nOmero del indi- 
ce del elemento que queremos bo- 
rrar. 
Si a partir de este elemento susti- 
tuimos el valor que contiene por el 
del siguiente, conseguimos borrar el 
que queriamos y a la vez correr to- 
dos los valores que le siguen una po- 
sici6n hacia delante. 
Si esto Io hacemos para todas y ca- 
da una de las matrices borraremos 
todos los elementos que tienen por 
subindice la variable ¢ontador y co- 
rreremos una posici6n todos los si- 
guientes para <rellenar el hueco de 
iado. 
La ejecuci6n del bucle FOR... 
NEXT de las lineas 4080 a 4180 nos 
evita tener que hacerlo manualmen- 
te. Como limite inferior tiene ¢onta- 
dr--empezamos asi en el elemen- 
to borrador-- y como limite superior 
el ngmero de elementos Ilenos <num. 
pers (0)7,. 
Solamente nos queda que la linea 
4190 nos actualice el ngmero de ele- 
mentos Ilenos rest6ndole 1 a num- 

pets (). Con la linea 4200 volve- 
mos al menO principal. 
Para MODIFICAR un dato segui- 
mos el siguiente camino: 
-- Preguntar el nombre a modifi- 
COF. 
-- Buscar en las tablas los datos 
del hombre que hemos dado. 
-- Si son los que queremos modi- 
ficar, modificarlos. 
-- Si no Io son, buscar el siguien- 
te dato que tenga el mismo nombre 
y una vez encontrado repetir el ciclo. 
-- Suponiendo que no Io encon- 
tr6ramos, sacariamos el mensaje de 
NO EXISTE. 
-- Despus de todo esto volveria- 
mos al men6 principal. 
Veamos c6mo Io hace el progra- 
ma 6. 

I Programa seis I 

La Iinea 5030 asigna el valor que 
introducimos por el teclado a la va- 
riable nombre$. 
El bucle FOR... NEXT--lineas 
5050 a 5080-- nos encuentra el in- 
dice de los elementos cuyo nombre 
es igual al que queremos modificar. 
Su valor es el contenido en la varia- 
ble <dndice menos 1. 
La linea 5100 nos presenta en la 
pantalla los datos correspondientes 
al hombre buscado. 
Si son estos los datos que quere- 
mos modificar, procedemos a cam- 
biarlos mediante las instrucciones IN- 
PUTde las lineas 5110 a 5220. Ob- 
serve que utilizamos el indice encon- 
trado anteriormente --fndice menos 
1-- para insertar los nuevos valores 
en los elementos de las matrices que 
han de contener todos los datos co- 
rrespondientes al hombre que meti- 
mos en la linea 5030. 
Cuando el nombre que nos escri- 
be la linea 5100 no es el que quere- 
mos, volvemos a buscar otro hombre 
igual pero esta vez la variable de 
control del bucle comenzar6 con un 
valor en indice que es el del ele- 
mento que sigue a161timo que ha sa- 
lido en la pantalla. 
Una vez encontrado un nombre 
v61ido repetiremos el proceso ante- 
rior para modificar los datos. 
Si no encontramos el nombre de- 
seado, la linea 5090 sacar6 el men- 
saie NO EXISTE con un bucle de re- 
tardo para poder leerlo. 
Una vez m6s¢ al terminar la ope- 
raci6n volvemos al bucle principal 
--ffnea 5230. 



Analice todo este roceso y ver6 
que es mucho m6s sencillo de Io que 
parece. 
Desde la linea 6000 a la 6120, le 
aseguramos que el camino recorrido 
es el mismo queen la operaci6n an- 
terior. 
La 0nica diferencia entre estos dos 
m6dulos estriba en que ahora una 
vez encontrado el nombre v61ido sa- 
camos en la pantalla los elementos 
de cada una de las matrices con un 
subindice que ser6 el valor de la va- 
riable (indice) menos 1. 
Estos elementos formarn el con- 
junto de todos los datos que van aso- 
ciados al nombre que buscamos. 
Para ver esta diferencia eche una 
ojeada al programa 7 y comprende- 
ra Io que decimos. 

Programa slete 

Solamente has queda ahora ver la 
forma de cargar los datos desde la 
cinta (o disco) y de c6mo salvarlos 
--o guardarlos-- para su posterior 
utilizaci6n. 
Teniendo en cuenta que estamos 
dando los cPrimeros asos infor- 
m6ticamente hablando, en estas dos 
01timas operaciones has van a apa- 
recer varias instrucciones nuevas. No 
se preocupe. Ahora les contaremos 
de una farina muy general su funcio- 
namiento y ms adelante las vere- 
mos con profundidad cuando Ilegue- 
mos a los articulos basados en tra- 
tamiento de ficheros. 
De momenta crea Io que le deci- 
mos sabre estas instrucciones aunque 
ya sabe que le dejamos que libre- 
mente haga pruebas y practique par 
su cuenta todo Io relacionado con es- 
tos temas. 
Para CARGAR en la memoria una 
serie de datos desde cinta o disco uti- 
lizaremos siempre programas ms o 
menos complicados, pero semejan- 
tes al siguiente programa 8. 

Programa ocho 

Su modo de funcionamiento es 
muy sencillo. En la linea 7030 el or- 
denador has pide el nombre del fi- 
chero que queremos cargar. 
En la linea 7040 nos aparece una 
de las nuevas instrucciones de las que 
le hemos hablado: 
OPEN IN nomfichS 
Su cometido es dejar preparado el 
fichero de nombre en el contenido en 

la variable nomfich$ para que 
nuestro programa pueda leer datos 
de 61. 
Esta lectura la hacemos mediante 
el bucle FOR... NEXT comprendido 
entre las lineas 7050 y 7150. Las ins- 
trucciones INPUT toman los datos 
desde la cinta (o disco) --#9, que sig- 
nifica canal 9-- y las van almacenan- 
do en los diferentes elementos de ca- 
da una de las matrices que hemos di- 
mensionado. 
Una vez leidos todos los datos ce- 
rramos el fichero: 
CLOSE IN 
en la linea 7160 y sacamos un men- 
saje de fin de lectura --linea 7170. 
Con el programa 9 vemos que la 
forma de salvar los datos en la cinta 
o en el disco se realiza de una for- 
ma similar. 
Con la linea 8040 preparamos el 
fichero pero esta vez para escribir en 
61 los datos que hay almacenado en 
la memoria. 
Las lineas comprendidas entre el 
bucle FOR... NEXT --lineas 8050 a 
8150-- son las que se encargan de 
salvar cada uno de los valores de los 
elementos de las matrices (WRITE, 
, variable que significa que el 
Am.=trad va a grabar en el fichero 
de cinta o disco el valor que estg al- 
macenado en variable). 
En la linea 8160 cerramos el fiche- 
ro y sacamos el mensaje de ccDATO$ 
SAI.VADO$ con la linea 8170. 
Buena, ya parece que est6 todo. 
Solamente le queda mezclar todos 
estos m6dulos (programas) y obten- 
dr6 un magnifico archivo de datos de 
empleados que cualquier gran em- 
presa le quitar6 de las manos. (Es 
broma). 
Nuestra intenci6n es que con este 
ejemplo le hayan quedado m6s cla- 
ras todas sus posibles dudas sabre el 
usa y abuso de las matrices. 
Nos conformamos con que entien- 
da sin problemas que las matrices 
nos sirven para organizar datos de 
un mismo tipo bajo un solo nombre; 
que las tablas pueden tener varias di- 
mensiones (a sub/ndices) siendo su 
manejo semejante alas de una di- 
mensi6n; que los elementos de una 
matriz (variables con sub/ndice) pue- 
den usarse coma si fueran variables 
normales y que para acceder a uno 
de estos elementos Io hacemos a tra- 
v6s de uno o varios subindices. 
Esperamos que esto haya sido 
ficiente para abriros las puertas a la 
utilizaci6n e investigaci6n de esta 
maravillosa herramienta. Hasta 
pronto. 

esde que -- 
AMSTRAD Semanal via la Iuz, en 
septiembre del 85, ha pasado ya una 
respetable cantidad de tiempo: Ilevamos 
juntos 5 meses. 
A Io largo de toda nuestra singladura, 
hemos procurado siempre ofrecer a 
nuestros lectores una informaci6n 
caracterizada par dos palabras: actualidad 
e inter6s, tratando de hater a AMSTRAD 
Semanal accesible y amena para todos los 
usuarios o posibles usuarios de ordenadores 
Amstrad con cualquier nivel de destreza. 
En este sentido, creemos que siempre hay que 
tratar con particular atenci6n a los que 
empiezan, porque normalmente son dueos de 
una gran ilusi6n y se enfrentan con Io que 
parecen dificultades insuperables. 
Esa rue, y es, la raz6n de ser de una de 
nuestras secciones fijas, la de Primeros 
pasos, en la que se pretende guiar al 
usuario no iniciado desde el principio 
mismo del arle de programar, hasta las 
inaccesibles cimas (esa dicen) que 
conllevan el convertirse en amo absoluto 
del ordenador. 
Ahora bien, no todas las personas han 
seguido, par las razones que sean, nuestra 
revista desde el primer n0mero, y ahora, o 
hace poco tiempo, o dento de poco 
tiempo, si que se decidir6n a Ilev6rsela a 
casa, al menos para ver c6mo es, y Io que 
cuenta. 
Pensamos que gran parte de estas 
personas pueden estar Ilenas de inter6s par 
aprender el manejo y las entretelas de su 
ordenador, y clara, se encuentran con una 
secci6n de Primeros pasos que Ileva 
funcionando veintitantos n0meros y 
presupone en el lector, a pesar de su 
sencillez y claridad, unos ciertos 
conocimientos, impartidos en articulos 
anteriores. 
Par este motlvo hemos decidido acudir 
en ayuda de elias, publicando a partir del 
n0mero siguiente un resumen de Io rags 
importante y crucial de los articulos de 
Primer0s pasos de los anteriores 
nOmeros. Asi, los inleresados podr6n 
ponerse al dia r6pidamente. 
La extgnsi6n de esta recapitulaci6n, 
16gicamente ser6 menor que la de los 
articulos normales; no queremos pecar 
de redundantes ni ocupar el espacio de 
p6ginas necesario para hablar de otros 
muchos temas, muy interesantes para todos 
los lectores, sin excepci6n. 
Par tanto, ponemos en marcha este 
proyecto, ocerca del cual has seria muy 0til 
recibir vuestra opini6n, sugerencias, ideas 
y, sabre todo, constructivas criticas. Coma 
siempre, sabemos positivamente que con 
vueslra colaboraci6n, podremos hacerlo 
mucho meior. 



10 REM PROGRAMA 
2A REM DIMENSIONADO DE MATRICES 
30 DIM nombre$(100) 
40 DIM apellldoS( 
50 DIM calle$(100) 
60 DIM numero(100) 
70 DIM localldad$(100) 
8 DIM numpers(10C) 

90 DIM referencia(100) 
100 DIM categorla$(100) 
110 DIM sueldo(100) 

10(30 REM PROGRAMA If 
1010 REM MENU PRINCIPAL 
I('20 CLS 
IA30 PRINT TAB(tO) ;"$MENU PRINCIP 
1040 PRINT 
1050 PRINT TAB[8) "I.- CREAR NUEVO 
F I CHPRO" 
1060 PRINT TAB(8):"2.- INCLUIR DATO 
S  
1070 PRINT TAB(8) :"3.- BORRAR DATOS 
1080 PRINT TAB(8):"4.- MODIFICAR DA 
TOS" 
1090 PRINT TAB(8):"5.- BUSCAR DATOS 
1100 PRINT TAB(8);'6.- CARGAR DATOS 
1110 PRINT TAB(8) :"7.- SALVAR DATOS 
1120 PRINT 
1130 PRINT TAB(8) 
;140 INPUT "INTRODUCE UNA OPCION: " 
 option 
I15¢ IF opcion-1 THEN 80T0 2000 
1160 IF option-2 THEN GOTO 3000 
1170 IF opcion-3 THEN 80T0 4(300 
1180 IF opcion-4 THEN GOTO 5000 
1190 IF option=5 THEN GOTO 6000 
12rlr) IF option=6 THEN GOTO 7000 
1210 IF opcion=7 THEN 80T0 80C)0 
1220 GOTO 1140 

20r0 REM PROGRAMA I I I 
2010 REM CREAR FICHERO 
2020 ERASE nombre$ 
2030 ERASE apellido$ 
2040 ERASE calle$ 
2050 ERASE numero 
2060 ERASE Iocalidad$ 
2070 ERASE reerencia 
2080 ERASE numpers 
?090 ERASE categoria$ 
2100 ERASE sueldo 
2110 DIM nombre$(100) 
2120 DIM apellidoS(100) 
2130 DIM calle$(100) 
2140 DIM numero(100) 
2150 DIM localidad$(100) 
2160 DIM numpers(100) 
2170 DIM reerencla(100) 
2180 DIM categoria$(100) 
2190 DIM sueldo(100) 
2200 GOTO 100C 

3000 REM PROGRAMA IV 
3010 REM INCLUIR DATOS 
3020 CLS 
3030 indice=numpers(O)+1 
3040 INPUT "NOMBRE: ",nombre$(indic 
e) 
3050 INPUT "APELIDO: ",apellido$<i 
ndice) 
3060 INPUT "CALLE: ",calle$(indice) 
3070 INPUT "NUMERO: ",numero(indice 
) 
3080 INPUT "LOCALIDAD: "localldad$ 
(indite) 
3090 INPUT "NUMERO DE PERSONAl : 
umpers (Indi 
3100 INPUT "REFERFNCIA: ",reerenci 
a(Indice) 

3110 INPUT "CATEGORIA: ".categoria$ 
(indite) 
3120 INPUT "SUELDO: ",sueldo(indce 
) 
3130 numpers(O)-indice 
3140 GOTO 1000 

4000 REM PROGRAMA V 
4010 REM BORRAR DATOS 
4020 CLS 
4030 INPUT "NOMBRE A BORRAR: ".nomb 
re$ 
4040 contador=l 
4050 WHILE nombre$<>nombre$(contado 
r) 
4060 contador-contador+l 
4070 WEND 
4080 FOR i contador TO numpers(O) 
4090 nombre$(i)=nombre$(i+1) 
4100 apellido$(i)-apellido$+1) 
4110 calle$(i)=calle$(i+1) 
4120 numero(i)=numero(i+l) 

4130 localidad$(i)=localidad$(i+l) 
4140 numpers(i)=numpers(i+l) 
4150 reerencia(i)=reerencia(i+1) 
4160 categoria$(i)-categoria$(i÷1) 
4170 sueldo(i)-sueldo(i+1) 
4180 NEXT i 
4190 numpers(O)-numpers(O)-1 
4200 GOTO 1000 

5000 REM F'ROGRAMA VI 
5(}10 REM MODIFICAR DATOS 
5020 CLS 
5030 INPUT "NOMBRE A MODIFICAR: 
ombre$ 
5040 indice=l 
5050 FOR i=indice TO I00 
5060 indice=indice+1 
5070 IF nombre$ nombre$indice-1) T 
HEN GOTO 5100 
5O80 NEXT i 
5090 IF indlce>100 THEN PRINT"NO EX 
ISTE":FOR retardo=1 TO IO00:NEXT re 
tardo:GOTO 1000 
5100 PRINT nombre$(indice-l>" ":ap 
ellido$(indice-1) 
5110 INPUT "ES ESTE NOMBRE":correct 
o$ 
5120 IF correcto$="no" THEN GOTO 50 
50 
5130 PRINT"NUEVOS DATOS" 
5140 INPUT "NOMBRE: "nombre$(indic 
e-I) 
5150 INPUT "APELI IDO: ",apellido$(i 
ndice-l 
5160 INPUT "CALLE: "calle$(indice- 
I) 
5170 INPUT "NUMERO: "numero(indice 
-I 
5180 INPUT "LOCALIDAD: ",localidad$ 
(indite-l) 
5190 INPUT "NUMERO DE PERSONAL: 
umpers (indite-i) 
5200 INPUT "REFERENCIA: "referenci 
a(indice-1) 
5210 INPUT "CATEGORIA: ",categoria$ 
(indice-1) 
5220 INPUT "SUELDO: ",sueldo(indice 
-I) 
5230 GOTO 1000 

6000 REM PROGRAMA VII 
6010 REM BUSCAR DATOS 
6020 CLS 
6030 INPUT "NOMBRE A BUSCAR: ",nomb 
6040 indice-I 
6050 FOR i-indite TO 100 
6060 indite indice+1 
6070 IF nombre$=nombre$(indlce-1) T 
HEN GOTO 6100 
6080 NEXT i 
6090 IF indice>100 THEN PRINT"NO 8X 
ISTE":FOR retardo=l TO IO00:NEXT re 
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tardo:GOTO lOOf 
6100 PRINT nombre$(indice-1): .... ap 
ellido$(indice-1) 
6110 INPUT "ES ESTE NOMBRE":correct 
o$ 
6120 IF correcto$ "no" THEN GOTO 60 
50 
6130 PRINT"NOMBRE: " 
6140 PRINT nombre$(indice-1); .... ap 
ellldo$(indice-1) 
6150 PRINT"DOMICILIO:" 
6160 PRINT calle$(indlce-1);" nun." 
;numero(indice-1) 
6170 PRINT"LOCALIDAD:" 
6180 PRINT localldad$(indice-1) 
6190 F'RINT"REF.: ":reerencla(indlc 
e-l) 
6200 PRINT"NUMERO DE PERSONAL: ";nu 
mpers(indice-1) 
6210 F'RINT"CATEGORIA: ":categoria$( 
indice-1) 
6220 PRINT"SALARIO: "sueldo(indlce 
-I) 
6230 FOR retardo 0 TO I000¢):NEXT re 
tardo 
6240 GOTO 1000 

7000 REM PROGRAMA VIII 
7010 REM CARGAR DATOS 
7020 CL8 
7030 INPUT "NOMBRE DEL FICHERO: ".n 
om4ich$ 
7040 OPENIN nomich$ 
7050 FOR i 0 TO I00 
7060 INPUT #9,hombreS(i) 
7070 INPUT #9,apellido$(1) 
7080 INPUT #9,calle$<i) 
7090 INPUT #9,numero(i) 
7100 INPUT #9,1ocalidad$(i) 
7110 INPUT #9numpers(i) 
7120 INPUT #9,reerencla(1) 
7130 INPUT #9,categorla$(i> 
7140 INPUT #9,sueldo(i) 
7150 NEXT i 
7160 CLOSEIN 
7170 PRINT TAB(8)"DATOS CARGADO 
S" 
7180 FOR retardo I TO IO00:NEXT ret 
ardo 
7190 GOTO 100( 

8000 REM PROGRAMA IX 
8010 REM SALVAR DATOS 
8020 CLS 
8030 INPUT "NOMBRE DEI FICHERO: "n 
omich$ 
8040 OPENOUT nomich$ 
8050 FOR i 0 TO 100 
8060 WRITE #9.hombreS(i) 
8070 WRITE #9.apellldo$(1) 
8080 WRITE #9calle$(i) 
8090 WRITE #9.numero(i) 
8100 WRITE #9.]ocalidad$(i) 
8110 WRITE #9,numpers(i) 
812(I WRITE #9reerencia(l 
8130 WRITE #9.cateoria$(1) 
8140 WRITE #9.sueldo(i 
8150 NEXT i 
8160 CLOSEOUT 
8170 PRINT TAB(8)I"11DATOS SALVADO 
S" 
8180 FOR retardo=1 TO IC00:NEXT ret 
ardo 
8190 GOTO 10CIC) 

I0 ,COHOr AMSTAD 
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0 
d scubre el • 
  k'' tambin disponible 

CARNIVAL 

Si te gusta el tiro al blanco, con este 
programa podr(s practicar sin necesidad de salir 
de casa. Si tienes buena punteria obtendr(s 
disparos gratis. 

BLOCKER 

Demuestra tu habilidad esquivando 
las paredes y a tus enemigos. Cuantos 
m(s destruyas, mOs aparecerOn ante ti. 

SPACE 

Am cargar este programa aparecer6 
ante ti un batall6n de alienTgenas. Tu 
misiOn es destruirlos, pero cuidado, su 
intenciOn es eliminarte Io antes posible. 

HAUNTED 

En este caso debes coger todos los 
puntos que aparecen en el laberinto. 
iAtenci6n!, los fantasmas est6n enfadados 
e intentarOn deshacerse de ti a toda 
costa. 

VAMPIRO 

Es un programa en el cual pueden 
participar dos jugadores. La misi6n de 
cada uno serd pintar las Ipidas de un 
color distinto. La destrucciOn del enemigo 
significa la victoria. 

SPLIT 
Es una rutina en cOdigo mquina, que 
te permitir( siete colores en pantalla en 
MODO '1, en el cual normalmente solo se 
pueden utilizar cuatro. 

Si no Io encontrara en su 
quiosco, soffcitelo directa- 
mente a nuestra editorial. 
.. . - -%. ?,, ,, 
Paseo de la Castellana, 268. 
28046 Madrid. Tel. (91) 733 25 99 

Lo mejor selecci6n de programas de juegos y utilidades, publicados en la revista de mayor difusi6n 
de ordenadores de Europa. Ahora reproducidos en cassette, en o utntica exclusiva mundial.- 



Con idea de ofrecer al usuario de ordenadores Amstrad una 
panormica Io rods amplia y clara posible de los programos 
de gesti6n disponibles para la serie CPC, y continuando con la 
misma politico emprendida desde hate algunos ndmeros, 
Ba.nco de Pruebas,analiza en est, ,cosign un programa que 
sun duda es un clsico dentro de la gestin y la ¢papeleta 
que resuelve, puede ahorrar horas de esfuerzo y 
quebraderos de caaeza a mucha gente. Nos referimos a un 
programa de CONTROL DE STOCKS, funclonando bajo el 
sistema operatlvo CP/M, 16 cual permite aprovechar al 
mdximo la capacidad de los unidades de disco en el 
tratamiento de la informacin. 

I 

todos los in- 
teresados que est6n )eyendo ste ar- 
liculo saben, un programa de control 
de stocks resuelve el problema de la 
compleja gesti6n de las existencias 
de un almac6n completamente. Por 
dar una definici6n de este tip. de 
programas podriamos decir que: 
permiten Ilevar el control de un alma- 
cf.n, conocer en cualquier moment. 
el inventario y obtener un listado de 
entradas y safidas, por pant• Ila y/o 
mpresora, que ban tenido lugar en 
determined, •- "od.o -  tiptop.. 
El estudio de Control de Stocks se 
abordar6 de la misma forma que la 
de los precedentes en esta misma 
secci6n: trataremos de dar una de- 
tallada descripci6n del raisin, pen- 
sand. en que a los posibles compra- 
dores les interesar6 saber las posibi- 
lidades del mismo. 
Queda por comentar un agradable 
detalle: puede usarse con una o dos 
unidades de disco indistintamente. 
Este programa le permite Ilevar el 
control de un almac6n, conocer en 
cualquier moment, el inventario y 
obtener un listado de entradas y sa- 
lidas que se han producido en un pe- 
riod. de tiempo dad.. 
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AI cargarse el programa de 
STOCK, le aparecer6 en pantalla el 
siguiente menO: 
PROCESOS DEL FICHERO 
ENTRADAS EN EL ALMACEN 
SALIDAS DEL ALMACEN 
STOCK EN EL ALMACEN 
STOCK BAJO MINIMOS 
SALIDAS POR IMPRES©RA 
FIN DE LA SESION DE TRABAJO 
Para escoger cualquiera de estas 
opciones, con las flechas del cursor 
eliia una de elias y pulse la tecla 
ENTER. 
A continuaci6n describiremos con 
detalle la funci6n y la manera de 
operar con cada una de las opcio- 
nes que han aparecido en el menO 
principal. 
PROCESOS DE FICHEROS. En es- 
ta opci6n del menO principal, se en- 
cuentran reunidas todas las opera- 
ciones que tienen que ver con la 
creaci6n del richer, de existencias asi 
com. su actualizaci6n, renovaci6n, 
correcci6n, etc. 
Cuando Vd. elije esta opci6n apa- 
rece en pantalla el siguiente menO: 
INICIALIZAR TODOS LOS 
FICHEROS 
INTRODUCIR NUEVOS ARTICULOS 
CORREGIR DATOS DEL FICHERO 
CORREGIR FICHERO DE 
ENTRADAS 
CORREGIR FICHERO DE SALIDAS 
FIN DE LOS PROCESOS 
INICIALIZAR TODOS LOS FICHE° 
ROS. Esta opci6n es la que se utiliza 



cuando los discos de datos se usan 
por primera vez. El proceso iniciali- 
za los ficheros de datos preparando 
los discos para poder recibir los 
apuntes que Vd. realice. 
Antes de ejecutar el proceso, el 
programa le avisa de que si hay al- 
gOn fichero antiguo en el disco, 6ste 
se destruir6, perdiendo su informa- 
ci6n. Si Vd. desea salir de esta op- 
ci6n sin ejecutarla pulse la tecla 
ESC. Esta tecla (ESCAPE) sirve pa- 
ra salir de cualquier opci6n y volver 
al menO principal. 
Una vez que el programa ha ini 
cializado los ficheros, todavia le per- 
mite la opci6n de recuperar los que 
habia en el disco mediante otro men- 
saje de aviso. Si pulsa la tecla cESC, 
volver6 a tener los ficheros de ori- 
gen, con cualquier otra tecla volve- 
r6 al menO de PROCESOS DEL FI- 
CHEROot. 
INTRODUCIR NUEVOS ARTICU- 
LOS. Con esta opci6n Vd. podr6 in- 
troducir en el disco el inventario ini- 
cial y los nuevos articulos que Ileguen 
al almac6n. 
El formato de pantalla, represen- 
ta una hoja donde Vd. apuntar6 la 
referencia de su articulo (8 caracte- 
res), la descripci6n (30 caracteres), 
la cantidad que hay en stock (4 ca- 
racteres), la cantidad minima de 
stock (4 caracteres) y el precio de 
venta al pOblico o el precio de coste 
(segn quiera el inventario por va- 
lor de existencias o por valor de ven- 
ta), con 6 caracteres. 
AI ir introduciendo los diferentes 
articulos, el programa asigna a ca- 
da uno de ellos un c6digo interno, 
que servir6 para su r6pida bOsque- 
da por el programa en otros proce- 
sos. Si trabaja con el c6digo que da 
el programa, los datos se mostrar6n 
en pantalla casi instant6neaente, 
mientras que si Io hace por referen- 
cias de los articulos tardar6 un poco 
m6s. 
Si pulsa la tecla E$C cuando el 
programa le pide la referencia de un 
articulo, se interrumpir6 el proceso 
y volver el control al menO de 
<PROCESOS DEL FICHERO). Si Io 

: c  .co de 
prue, ' 

hace en cualquiera de las dem6s en- 
tradas, se borrar y le preguntar6 la 
anterior; es decir, si cuando apare- 
ce el cursor en la columna de P.V.P. 
se pulsa la tecla ESC, aparecer6 et 
cursor en la columna anterior C. 
MIN. (cantidad minima). 
CORREGIR DATOS DEL FICHE- 
RO. Con esta opci6n, puede corre- 
gir datos del fichero de existencias, 
precio de venta. El ordenador le pre- 
guntar6 si desea corregir por c6di- 
gos o por referencias. Si escoge la 
opci6n de c6digos el acceso al dato 
ser6 inmediato, en otro caso Ilevar6 
algo de tiempo. Una vez escogido el 
m6todo de correcci6n, el programa 
le preguntar6 el c6digo o la referen- 
cia del articulo en cuesti6n, presen- 
tando en pantalla la ficha correspon- 
diente a dicho articulo. Pulsando la 
tecla ENT£R, podr6 saltar directa- 
mente al dato a corregir y una vez 
en dicho dato, puede utilizar las te- 
clas del cursor para modificar cual- 
quier caracter. Una vez modificado 
dicho caracter, pulsando la tecla 
I:NTI:R, se introducirg en memoria 
y debe pulsar de nuevo la tecla i:N- 
.Tl:lb hasta Ilegar al final del dato 
para que se introduzca la modifica- 
ci6n en el disco. Una vez modifica- 
do un dato entero, el programa le 
vuelve a pedir un nuevo c6digo o 
una nueva referencia. Si en ese mo- 
mento Vd. pulsa la tecla ES¢ vol- 
ver6 al menO de (PROCESOS DEL FI- 
CHEROot. 
CORREGIR FICHERO DE ENTRA- 
DAS. Con esta opci6n podr6 modifi- 
car cualquier dato del fichero de en- 
tradas, siendo su funcionamiento 
id6ntico al anterior. 
CORREGIR FICHERO DE SALI- 
DAS. El mismo proceso, pero esta 
vez, con el fichero de salidas de al- 
macon. 
FIN DE LOS PROCESOS. Esta op- 
ci6n devolver el control al menO 
principal. Tambi6n puede volver a 
dicho meng, pulsando la tecla <ESC. 

Entradas en el almacn 
En este proceso del menO princi- 
pal, se encuentran englobadas todas 
coor AMSTRAD 13 



las operaciones que fengan que ver 
con la entrada de existencias en el al- 
mac6n, balances de entradas entre 
dos fechas, entradas de un articulo, 
entradas de una familia de articulos, 
etc. Si Vd. elije esta opci6n, el pro- 
grama responde con otro menO: 
INTRODUCIR DATOS 
ENTRADAS ENTRE DOS FECHAS 
INICIALIZAR FICHERO DE 
ENTRADAS 
TERMINAR PROCESO 
INTRODUCIR DATOS. Esta opci6n 
le permite introducir las entradas de 
articulos ya referenciados en el alma- 
c6n, actualizando el stock de dicho 
articulo. Si es la primera vez que la 
utiliza en el dia, el programa le pre- 
guntard fecha; una vez introducida, 
permanecer6 en memoria hasta que 
se apague el ordenador, utiliz6ndo- 
la para todos los dem6s procesos de 
entradas o salidas que tengan lugar 
en dicho dia. El proceso de introduc- 
ci6n de datos es similar a los ante° 
riormente explicados. 
ENTRADAS ENTRE DOS FECHAS. 
Esta opci6n le permitir6 obtener un 
listado de las entradas que han teni- 
do lugar entre dos fechas cualesquie- 
ra. El programa preguntar6 entre 
qu6 dos fechas queremos que saque 
el listado y de qu6 referencia. Si 
cuando el programa pregunta la reo 
ferencia, se pulsa la tecla ENTER, 
obtendremos un listado de todas las 
entradas que han tenido lugar entre 
dichas fechas. Si introducimos una re- 
ferencia, obtendremos 6nicamente 
las entradas que ban tenido lugar de 
dicha referencia. Si introducimos 
parte de dicha referencia, obtendre- 
mos un listado de todos los articulos 
que tengan en comOn dicha parle de 
la referencia. 
INICIALIZAR FICHERO DE EN- 
TRADAS. Este proceso se utiliza pao 
ra dejar espacio en el disco y poder 
seguir introduciendo datos en 61. Se 
utiliza 6nicamente cuando tenemos 
muchas entradas o salidas de stock. 
En el disco, hay espacio aproximao 
damente para unos 5.000 apuntes 
de entrada o salidas. Antes de utili- 
zar esta opci6n, es conveniente sa- 
car un listado en impresora de todas 
los entradas y salidas del disco o bien 
hacer una copia del mismo para po- 
der efectuar los balances necesarios 
en cua!quier momenlo. 
El fichero donde se archivan las 
entradas es el mismo en el que se aro 
chivan las salidas del almac6n, por 
Io tanto, si inicializamos el fichero de 
entradas, tambi6n inicializaremos el 
fichero de salidas. Si se quiere salir 

de esta opci6n antes de borrar el fi- 
chero, se puede pulsar la tecla 
ESC. Pulsando cualquier otra tecla, 
borraremos el fichero. 
TERMINAR PROCESO. Con esta 
opci6n retornaremos al menO princi- 
pal. Tambi6n se puede volver a di- 
cho menO pulsando la tecla ESC en 
cualquier momento. 

Salidas del olmocn 

Este proceso es id6ntico al de en- 
tradas en el almac6n, pudi6ndose 
trasladar aqui la misma metodologia 
anterior. 

Stock en el almacn 

Con esta opci6n, podemos cono- 
cer tanto el total del inventario en 
cualquier momento, asi como el in- 
ventario de una referencia o el in- 
ventario de una familia de referen- 
cias. 
El programa presenta en pantalla 
una hoja igual que la que presenta 
en la introducci6n de nuevos arficu- 
los. En primer lugar nos pregunta 
por el c6digo del articulo del cual 
queremos conocer su stock. Si en di- 
cho momento se pulsa la tecla ESC, 
retornaremos al menO principal. Si se 
pulsa la tecla (ESC, retornaremos al 
menO principal. Si en esta nueva pre- 
gunta se pulsa de nuevo la tecla EN- 
TER obtendremos un listado de to- 
dos los articulos que hay en el alma- 
c6n y al final el total del inventario. 

Stock bajo m[nimo 

Esta opci6n le permite conocer to- 
das los referencias que se encuentran 
por debajo del stock minimo que Vd. 
fij6 al introducir dicha referencia. 
Asirnismo permite conocer qu6 refe- 
rencias de una familia se encuentra 
bajo minimos. 
Cuando elije esta opci6n, el pro- 
grama le pregunta si quiere el lista- 
do por pantalla o por impresora. 
Una vez escogido el perif6rico ade- 
cuado, el programa le preguntard la 
referencia. Pulsando en este momeno 
to la tecla ENTER), aparecerdn en 
pantalla todas las referencias o arti- 
culos por debajo de su stock minimo. 
Si en lugar de pulsar la tecla EN- 
TER, Vd. introduce una referencia o 
una parte de la referencia, obtendr6 
un listado de todas las referencias 
que tengan dicha parte en comgn y 
est6n bajo minimos. Durante el pro- 

ceso de listado, si Vd. pulsa la tecla 
ESC, se terminar el proceso pu- 
diendo volver de este modo al menO 
principal. 

Salidas por impresora 
Esta opci6n del menO principal, le 
permite obtener los listados por im- 
presora de cualquiera de las opcio- 
nes que aparecen en el sub-menO: 
STOCK EN EL ALMACEN 
ENTRADAS ENTRE DOS FECHAS 
SALIDAS ENTRE DOS FECHAS 
IMPRESION DEL STOCK BAJO 
MINIMOS 
FIN DEL PROCESO 
Cada una de estas opciones ya se 
han explicado previamente con Io 
que puede Vd. utilizar el mismo m6- 
todo que para las salidas par pan- 
talla. 

Fin de la sesJ6n de 
trabajo 

Esta opci6n devuelve el control al 
CP/M. Si Vd. utiliza esta opci6n con 
los discos de datos introducidos en 
los drives, si 6stos no poseen el siste- 
ma operativo grabado, puede bo- 
rrarse la informaci6n contenida en 
dicho disco; por Io tanto, antes de sa- 
lir del menO principal, se aconseja sa- 
car los discos de sus correspondien- 
tes drives e introducir el disco del sis- 
tema o un disco que ya posea el sis- 
tema operativo. Tambi6n aconseja- 
mos sacar una copia de los discos de 
datos regularmente para mayor se- 
guridad, ya que un fallo de tensi6n 
mientras se est6 trabajando, puede 
provocar el borrado accidental de 
los discos. Para hacer una copia de 
los discos de datas, utilice el progra- 
ma COPYDISC o DISCOPY que vie- 
ne en el disco del sistema. 



:li "s ORDENACION HASH 

Vamos a estudiar en el presente andlisis un mtodo muy 
usado en inform6tica para la manipulaci6n de cadenas 
alfanumricas; no se trata exactamente de un sistema 
completo de ordenaci6n, pero si consig, u.e que el tiempo 
empleado para Iocalizar la informacon que estamos 
buscando se reduzca dr6sticamente. 

n realidad, el asunto es 
muy simple: si nosotros observamos una pa- 
labra cualquiera, veremos que la suma de los 
c6digos ASCII de todas sus letras casi, casi, la 
caracteriza. 

Decimos casi porque dos palabras diferen- 
te pueden proporcionar el mismo valor num- 
rico. 
Para hater frente a esta posibilidad, man- 
tenemos dos matrices en uso: una de elias, 
orden$, almacena las cadenas segOn van Ile- 
gando, al azar. 

180 FOR i'| TO LEN 
! 9A hah = hah+ASC 
20q E T 
?10 hah" ha.h MO JO0 
R20 pRINT hah 
DE I A CADFNA EN LA 
?50 )-0 
OR  
RTO PRIN T 
?BA 1F i F. THEN F'RNT"No 
00 WFNO 
$2 =0: RETURN 

, MSTRA I 

La segunda, hashtab (100,5), atesora en su 
dimensi6n horizontal las palabras que tienen 
el mismo valor numrico en ordenS. 
Por ejemplo, si la palabra hola (valor hash 
de 20), aparece en el tercer elemento de 
ordenS, entonces hashtab(20,O) contendr6 un 
tres, de forma que siempre podremos acceder 
a la palabra (hola mediante la sentencia 
PRINT ordenS (hashtab(20,O)). 
Si posteriormente, en el elemento 50 de 
ordenS apareciera otra palabra de valor hash 
20, se almacenaria en hashtab(20,1), y asi su- 
cesivamente. 
Por tanto, la ufilidad del programa estriba 
en que PREPARA a una serie de elementos al- 
fanumricos de forma que pueden ser f6cil- 
mente tocalizados por grupos, y, una vez ha- 
Ilado el grupo en cuesfi6n, investigados me- 
diante cualquier algoritmo de bOsqueda, co- 
mo la bOsqueda binaria, para encontrar Io que 
queremos. 
Esto es muy efectivo, porque puede suceder 
muy f6cilmente que de 1.000 palabras, por 
ejemplo, tengamos que hacer s61o 5 bOsque- 
das o menos. 
El programa, m6s o menos linea por linea, 
hace Io siguiente: 
20 Preparaci6n de la pantalla. 
40 Inicializaci6n de las variables globales. 

50 Bucle WHILE...WEND de toda la vida. 

60 Entrada de datos. 
70 Comprobaci6n de si la matriz se ha 
(<acabado). 
80 Guardar el nombre en la matriz. 
90 Llamada a la rutina de c61culo del va- 
lor hash. 
100 Colocar en el lugar adecuado. 
1 i 0 Si ha habido un error, la rutina de la 
linea 240 en adelante devuelve el valor -1. 
170 Inicializar hash a O. 
180-200 C61culo del valor hash suman- 
do los ASCII del nombre. 
2 ! 0 Para que el valor final quepa dentro 
de los limites de la matriz, realizamos la ope- 
raci6n m6dulo con el valor 100. 
260-300 Encuentra el primer valor no ce- 
ro dentro de la dimensi6n horizontal de la ma- 
triz marcado por el valor de hash. 
310 Coloca el valor. 
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STRA CP 

- 4,4 AM TRA 

, sta es la .famiha deordenadores 
personales'UvISTlD. Una 
..farniliac,.o.mpleta en 1. tue  
incluyp"desd6l,.eqo basico de 
idaccin.,a la inZrmtica hasta el 
onntido a'phcacione, , 
profesionales ;Tod con la fflosofi. le 
disefio AMSTRAe ofree. 
ordenadore.:mpact lstos la 
fun.ciona sin [edo,'engorrSsbs ni,, 
nesjdd de"dqti,/rpenfricos , 
,co  le ¢le a la red- 
e incluyendo paetes de pramas 
de osequioY 
os c0 a teol. 
consda y ble d e el 
' m,opros.drZ  A, en el , 
.Si ema Opeftivo CP/.M - el mas 
extendo pa ordenadores  8 
bits- yen a eler6ni depurada y 
con un oso nol de cdad. 

RDENA 

AMSTRAD CPC 464. 

Todos con un e,.Xt, sa bibli, eca de 
programas.fue Sb [na''&n,t. clia' 
da con ttulos para oos los gustos y 
n6dades, 
Todos con una asistenia tcnia 
rpida y eficaz que 
ESPANA garantiza xclui, 
los epo.. d&,"trve d- 
.te40fici de Dm"ibmdores 
'cmpafiados de la Tarjeta de 
Gm%nt/'de AMSTRAD ESP/LA. 
T a  ree ¢teile que 
no .dmiter['comparaci6 on 
cualer otro,rdenaor 
srac-" ca  pe ion.s, 

R 

,, Micropro. do Z 80 A 64K 
RAM,'2K ROMe Teclado'5' 
gon 32 tedas programables Sonido 
estreo con 3 canales y 8 octal, as. 
Resoluci6n de hasta 640 x 200 puntos. 
Texto de 20, 40 y 80 ;olu;n 
27 colores. Conctor mUl 
C.,entronics, joystick etc...,Magtofono 
incorporado. 
TODO PO: sS.eee pt, ( o. " ,, - ., e) 
EL SUM/NISTRO INCLUY: 
. IBRO "Guia de Referenci 
ProgramadoF 
e Manual en casetlano" 
e 8 programas de obsequio en casse" e 
("Animal, Vegetal y Mineral', 
"Amsdrw'. 'Plaga Galctica ', 'Fnit 
Machine",'Admiral Graph Spee",, 
'Arnsword", 
'OH, Mummy" 
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AMSTRAD CPC 6128. 

• MkS,5iSrocesador Z 80 A• 128 K RAM,,, 
,4t( "..0 (:,n BASIC Y AMSDOS) • 
l.9;rf&sfonal de 74 teclas 
'I2"prama.bles). Sonido est&reo con 3 
lales y 8ctava/esoluci6n de hast 
640  .2:00,punto" 
col! col. 
mu)., Centromcs oysck et.. 
Umda de'.sco (3 K .or caza 
incoomdos., 
TOnG  9.9,, pt. morn o e .- 
13Z.900 pts. (re.into olT 
e Disco con Sistema Operavo CP 
y lenaje DR. LOGO 
 Disco con Sistema Opera,'vP/.M 
Plus y Ulidades, 
 Manu n casteo 
' DiSco co• 6 '; .  - e obseO 
.',Base de Datos'r'Proceso de Texo I", 
amdom Files",'Disefiador de Grficos", 

Puzzle", 'Animal, Vegetal y Mineral") 

AMSTRAD PCW 8256. 
• UNIDAD .ENR.AL  ..- 
rnicroprocs.d0t de Z 80 AS 2, RAM 
y tecladoprofesional de 82 teclas 
(fi, acento, etc..,), PANTALLA DE ALT' • 
RESOLUCION con 90 columnas por 32 
lineas de texto. UNIDAD DE DISCO de 
3" y 180K pot ara. IMPRESORA de 
'a "6/ffigci6n..,dSn alineacin ., 
. ,.., ticd49i' el, 
, ,O'POR: 12900. ' 
Siste" .", emtivo C' M Plus, Mallard 
BASIC c.on sistema JETSAM (fichero 
indexados). Lenguaje DR. 
Manuales en cas - lano. 

NOTA: Es'mtl, [mpoztanteven car a garantia del 
.aprato ya quelo AMSTR ESPANA pued.e 
garantzarle la', 4enada reparaci6n y sobre to. . 
,materies de repuesto oficiales (Momtoz 
ozdenador cassettem unidades de discos) 
, 

Avd,. del Mediterre, 9. To|s, 433 4 48- 433 48 7 
28C07 MADRID 
l)elegaci6n Catalu,," Targ .,, 110 • TeL 325,10 58. 
080I$ BARCELONA 



La marca del Zorro. 
signo inequvoco de 
que alg6n elemento 
hostil ha sido 
eliminado. Ilega a 
la pantalla de 
nuestro ordenador 
de la mano de U. S. 
GOLD. 

ucurrucucuuuuu- 
uu... palomaaaa., cucurrucu- 
cuuuuuuu.., no lloreees.., cucurrucu- 
cu,.. cucurrucucuuu. 
En los oscuras tinieblas de una no- 
che de mariachis y tequila , una figu- 
ra se oculta en los somJras. Su mar- 
ca, la zeta en Ja frente cJe sus cJerro- 
tados rivales. Su ideal: la justicia. Sus 
armas: -J Je y  o onimafo. 
Los ricos hacendados fiemblan fras 
los espesos muros de sus mansiones 
cuando cae la larga noche mejicana. 
Cada uno reza suplicando que no se 
produzca la temida visita. 
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Nadie sabe qui6n es ni de d6nde 
viene, solamente tenemos vagas des- 
cripciones de su aspecto. Vestido de 
negro de pies a cabeza, antifaz y 
sombrero de ala ancha ocultan la 
personalidad, del que los grandes ri- 
cachones consideran como el peligro 
pOblico n6mero uno. 
Qui6n iba a pensar que don Mi- 
uelito, el afeminado poseedor de la 
finca La Tramontana, persona super- 
ficial, entretenido en cotilleos de mu- 
jeres y obsesionado con vestir a la 
tima moda de Europa, es la figura 
que vestida de negro amenaza a la 
alta burguesia. 
Diestro espadachin, excelente jine- 
te, 6gil escalando muros y caminan- 
do por los tejados, es la pesadilla de 
la guardia presidencial. 

HORRIBLE 
UN ROLLO 
PASABLE 
BUENO 
MUY BUENO 
OBRA 
MAESTRA 



No podemos decir queen esta 
ocasi6n los omnipotentes del ALL 
AMERICAN SOFTWARE, se hayan 
lucido con su Oltima producci6n. 
Obsesionadas con la idea de lan- 
zar programa tras programa, al pre- 
cio que cueste, muchas casas de soft- 
ware no cuidan excesivamente la ca- 
lidad y el acabado de sus progra- 
mas. 
El juego se desarrolla en un esce- 
nario de veinte pantallas, cada una 
de las cuales posee objetos y carac- 
terfsticas especiales que dificultan o 
facilitan el paso hacia las si.quientes. 
Caminando por tejados, balcones 
y deslizndose por tendales de la ro- 
pa, camina de pantalla en pantalla 
en busca de la clave que le permiti- 
r6 Ilegar hasta su dama. 

Maria, raptada por el jefe de la 
guardia, se encuentra encerrada en 
la torre del fortin presidencial, su res- 
cate no es tarea f6cil. Para conse- 
guirlo, el Zorro deber6 eliminar cien- 
tos de guardias, y encontrar los ob- 
jetos que le permiten superar los obs- 
t6culos que se interponen en su ca- 
mino. 

joystick 

El movimiento de nuestro persona° 
je, se compone de salto, subir y ba- 
jar escalera, caminar, deslizarse por 
cables y ataques de esgrima y estoo 
cada. 
El control del mismo, puede reali- 
zarse por joystick o teclado. 
La resoluci6n del juego puede 
cansumir horas, hasta escalar la to- 
rre del cuartel de la guardia presi- 
dencial. 
La falta de mimo en la realizaci6n 
del programa, tiene su m6ximo ex- 
ponente en los gr6ficos. 
Realizados en el modo de menos 
resoluci6n y m6s colorido, estos re- 
sultan de una terrible simplicidad, co- 
lores apagados y falta de sentido ar- 
fistico. 
Nuestro personaje, est6 realizado 
con un dibujo caricaturesco y dota- 
do de un movimiento algo brusco, su 
silueta vaga por la pantalla de lugar 
en lugar, con indudable seguridad. 
El cambio de pantalla a pantalla 
no es instant6neo, sino que se toma 
su tiempo, interponiendo una panta- 
Ila gris que acentOa dicho lapso. 
La excitante aventura del Zorro co- 
mienza, en tus manos est6 aceptar el 
reto y disfrutar de un programa con 
gr6ficos poco trabajados, pero de 
una emoci6n indiscutible. 
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Programa realizado por Jos Manuel Rodriguez 
MJcrofruits es otro intento de tratamJento de la cano¢ida 
m6quina tragaperras con unas caracteristicas diferen¢iales 
respecta a otros intentos. 
Se ha intentado una alta fidelidad con el juega original, 
tratando de ¢onservar tadas las car.acteristicas que ofrece 
tlpicamente, sin salirse del Basic y sin que, par ella, pierda 
interns. 

• - - compone de dos 
programas encadenados, pero que 
en caso de carga sin ejecuci6n se ac- 
cederian independientemente, Io que 
tambin es v61ido para el listado del 
mismo. El primero es una rbtina de 
presentaci6n que hace menos crida 
la espera de carga del programa en 
sl, y que Ilamo FRUITS. El segundo 
es el programa en si y que Ilamo 
SLOTS. 
En el programa principal, por otra 
parte, se pueden distinguir en su eje- 
cuci6n tres partes diferenciadas: Un 
lazo inicial de instrucciones someras 
e informaci6n sobre las combinacio- 
nes premiadas. Una rutina para los 
tiempos de reposo que presenta en 
lazo todos los displays disponibles. Y 
el juego propiamente dicho. 
Se pueden apostar pesetas (P), du- 
ros (D) o monedas de 25 pesetas (M), 
calcul6ndose el premio en funci6n de 
la apuesta. Cada apuesta tiene va- 
lor para cada jugada individual, pu- 
dindose cambiar en la siguiente ju- 
gada. 
Pulsando 1, 2 6 3 se puede parar 
cualquier rodillo en cualquier mo- 
mento de la jugada, correspondien- 
do cada uno de estos nOmeros a la 
ventana correspondiente, de izquier- 
da a derecha. 
Una rutina de avances permite 
aleatoriamente un nOmero variable 
de avances manuales al final de la 
jugada agraciada, que se ejecutan 
pulsando 1, 2 6 3 para avanzar la 
ventana deseada. Si no se pulsa nin- 
guna tecla, se reducen automctica- 
mente los avances sin modificar el 
display y, por tanto, la combinaci6n 
obtenida. 
Incorpora una rutina aleatoria de 
premio especial que produce un nO- 
mero variable de combinaciones de 
premio m6ximo consecutivas. 

.20 ,IcRoo88' AMSTRAD 

ta uo 1o  

_ 

UBRUTIN " 

FRUITS 
20 Inicializaci6n 
30-40 Pantalla 
50 Encadenamiento 
SLOTS 
40 Clear 
50-140 Estructuraci6n en subrutinas. Secuencia del programa 
150-460 Simbolos 
470-530 Inicializaci6n 
540-750 Generaci6n de cadences 
760-1150 Pantalla 
1160-1270 Ventanas 
1280-1430 Estado de espera 
1440-1750 Comienzo del juego. Apuesta 
1760-2140 Jugada. Retenci6n rodillos. Maneio ventanas 
2150-2200 Contabilidad 
2210-2300 Azar 
2310-2410 Especial 
2420-2550 Avances 
2560-2830 Resultado iugada realizada. Determinaci6n del prernio. 
2840-3380 Rutina initial: Presentaci6n, instrucciones, premios. 
3390-3760 Sonidos 
3770-4230 Marcador y cuadro de honor 
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Se puede abandonar en cualquier 
momento pulsando 'T'. Si no se 
abandona, se termina la serie de ju- 
gadas cuando el cr6dito inicial de 
100 pesetas se agota o se alcanza un 
cr6dito de 900 pesetas. Se asigna a 
cada jugador una puntuaci6n en re- 
laci6n con los premios obtenidos en 
cada jugada y con el cr6dito final. 
Una rutina de marcador con cua- 
dro de honor habilita el programa 
como juego de competici6n. Entra 
autom6ticamente al final de cada se- 
rie de jugadas y usa la puntuaci6n fi- 
nal obtenida. Se comanda con las te- 
clas del cursor *- y - para los des- 
plazamientos y COPY para tomar las 
letras del jugador y para regresar al 
juego y T para terminar, aunque 
tambin se puede usar el joystick. 
Admite como entrada maygsculas 
o min0sculas indistintamente, asi co- 
mo n0meros de ambos teclados. 
Se pueden personalizar los dis- 
plays modificando los literales de las 
lineas 690 ("JM") y 700 ("SJ"). 

RO REM "."maqun trqaperrs 
30 REM ** .M.rodrlgue' * 1985 
40 Ci EAR: ( haml-O 
M' SYMBOl ATER 220 
60 GOSI]B 160 
70 GOSIIB 480 
80 GOSUB 2850 
Or, GOSUB   70 
fin GOSUB 1290 
20 GOSUB 1450 
130 GOTO 90 
i 40 END 
150 REM >>'b> simbolos <<<<%< :<< 
160 SYMBOL 220.0,0,0,0.0, 1,3.3 
170 SYMBOL 2210,4B64,64, 128 28, 1 
92 192 
BO SYMBO 222,7,7,76,6, 14, 14, 
190 SYMBOl_ 223,224,224,224,224,224, 
240,240,240 
200 SYMBOL 22429,29,61,62,63,31, 14 
210 SYMBOL 225,248,248,252.60252,2 
4B, 240,0 
22( SYMBOL 2260,1,3.3,7,77,5 
230 SYMBOL 22T,0, 12B, 192. 192,224,22 
4,2241224 
240 SYMBOL 228,5,5,5,5,55, 13,9 
25( SYMBOL ?29,224,224,224,224,224, 
224,240,240 
260 SYMBO 230,1119,23,5651,31,0 
270 SYMBOL 231,240,248,248,28, 196,2 
48, 192,0 
280 SYMBOL 232,0,r,0,0,0,3,7, 15 
290 SYMBOl 233,0,8,16,16,32,224,32, 
144 
00 SYMBOL 234,31,31,51,5955,5559 
310 SYMBOL 
252,252,252 
320 SYMBOL 236,27,25,28, 14, 

330 SYMBOl 237,248,24824B,240,240, 
224, J 92,0 
340 SYMBOL 238,0,0,0, I, 15,31,55,47 
350 SYMBOL 239,0,96, 128,0, 112,248,2 
52. 252 
380 SYMBOl 240.55.43.55,4323.27,21 
• 27 
370 SYMBOl_ 41, 252, 252, 252, 252, 248, 
748. 248. 248 
380 SYMBOL 242. 13. 15.6.3.. 1.0.0 
390 SYMBOL 243.24.24024r).224. 192, 
128.0.0 
40 SYMBOl 
41.0 SYMBOL 745.0.0.28. 124.254.254,2 
54  254 
420 SYMBOL 246.5.5.11.112323.23.4 
7 
430 SYMBOL 247254252.252.252.748. 
248. 240 240 
440 SYMBOL 248.47.47.51 
0 
450 SYMBOL 249.224. 192 
0 
460 RETURN 
470 RFM >>>>':" inlcallzacin 
< 
480 MODE O:PAPER O:BORDER 5 
490 INK O.I:INK 1.18INK 2.1():INK 
.15 
50¢) 1NK 4. 16: INK 5. 12: INK 6.25: INi 
7, 14 
510 INK 8.3:INF 9,5:INK 10,C:INK 
,1.24 
520 INK 12. I 19: INK 13. 13 
530 a=1 : punt-O 
540 FOR i=I TO 5 
550 n-(i-1)b 
560 a$(i)=CHR$(220n+CHR$I221+n)+C 
HR$ (222+n) +CHR$ (223+n  +CHR$ (224+n) + 
CHR$ (225+n) 
570 NEXT i 
580 aS (6)-CHR$ ( 131 ) +CHR$ (131) +"JM"+ 
CHR$ (140) +CHR$ (140) 

S-ri ,r, 

590 a$(7)=CHR$(216)+CHRS(216)+'SJ"+ 
OHR$(218)+CHR$(218) 
600 b$(1)=LEFT$(a$(1),2)+LEF$(a$(7 
,2)+LEFT$(a$(1),4)+MID$(a$(7),3,2) 
+MID$(a$(1),3)+RIGHT$(a$(7),2)+RIGH 
T$(a$(1),2) 
610 b$(2) LEFT$(a$(2),2)+LEFT$(a$(2 
,2)+IEFT$(a$(2),4)+MID$(a$(2),3,2) 
+MID$(a$(2),3)+RIGHT$(a$(2),2)+RIGH 
T$(a$(2),2) 
620 b$(3)-IFFT$(a$(3),2)+LEFT$(a$(6 
,2)+LEFT$(a$(3),4)+MID$(a$(6),3,2) 
+MID$(a$(3),3)+RISHT$(a$(6),2)+RIGH 
T$(a$(3),2) 
630 b$(4)-LEFT$(a$(4),2)+LEFT$(a$(7 
,2)+LEFT$(a$(4),4)+MID$(a$(7),3,2) 
+MID$(a$(4).3)+RIGHT$(a$(7).?)+RIGH 
T$(a$(4).2) 
640 b$(5)=LEFT$(a$(5).2)+LEFT$(a$(6 
,2)+LEFT$(a$(5).4)+MID$(a$(6)3.2) 
+MID$(a$(5).3)+RISHT$(a$(6).2)+RIGH 
T$(a$(5).2) 
650 b$(i)=LEFT$(a$().2)+LEFT$(a$(i 
.2)+LEFT$(a$(i).4)+MID$(a$(1).3.2) 
+MID$(a$(i).3)+RIGHT$(a$(i).2)+RISH 
T$(a$(i).2) 
660 FOR i=I TO 5 
670 c$i)=LEFT$(a$(1)2)+LEFT$(a$(i 
).2)+" "+MID$(a$(i) .3.2) MID$(a$(i 
).3.2)÷ ...... +RIGHTS (aS(1).2)+RIGHTS( 
68 NEXT i 
690 FOR i=I TO 5 
700 d$(1)= .... +LEFT$(a$(i)2)+LEFT$ 
(a$(i).2)+..--..+MID$(a$(1).S.2)+MID$ 
(a$(i.3.2)+" ..+RIGHT$(a$(1).2)+RI 
GHT$(a$(1).2) 
710 NEXT 
720 e$(1)=LEFT$(a$(4).2)+" "+MID 
$(a$(4)3.2+" .... "+RIGHTS(aS(4),2) 
730 e$(2)=" "+LEFT$(a$(4).2+ 
-+MID$(a$(4)32+ .... "+RIGHTS(aS( 
4).2) 
740 e$(3)= .... +LEFT$(a$(4).2)+"-- 
---+MID$(a$(4;.3.2+ .... +RIGHT$(a 
$(4)2) 
750 RETURN 
760 REM 
770 MODF O:CLS 
780 WINDOW #1.4.7.9.13:PAPER #I6 
790 WINDOW #2.9,12.9.13:PAPER #26 
800 WINDOW #3,14,179,13:PAF'ER #3,6 
810 PRINT #I,SPC(°O): PRINT #2,SPC( 
20)I:F'RINT #%.SF'C(20); 
82n b-111 
83¢ FOR i=1 TO 3 
840 PLOT b. 265 
850 FOR )=0 TO ?0 STEP 2 
60 PLOTR -II 
870 DRAWR 0,-70-),3 
880 DRAWR 95+],03 
890 DRAWR 0,70+j,2 
900 DRAWR -95-•<,2 
910 NEXT j 
b-b+160 
NEXT 
WINDOW #64.19•21 
WINDOW #7.1.1619.21 
PRINT #6SPC(15)::PRINT #7.SPC( 

920 
930 
940 
960 
12) 
97(I PLOT 92,99 
980 FOR j 0 TO 16 STEP 2 
990 PLOTR -I 1 
1000 DRAWR ¢,-25-j,3:DRAWR 
1010 DRAWR O25+j2:DRAWR 
2 



1020 NEXT 
1030 PLOT 380,99 
1040 FOR j 0 TO 16 STEP 2 
I(50 PL.OTR -I, I 
1A60 DRAWR O,-25-j,3:DRAWR 
3 
1070 DRAWR 
2 
1080 NEXT 
I90 IOCATE 3,.:PRINT "M ! C R 0" 
llr,' IOCATE 7, 5." F'RINT "F R U I T S" 

1110 LOCATE 3, IB:F'RINT "Credito" 1120 LOCATE 12,18:PRINT "Premio" 
I13C; LOCATE 1,23:PRINT "Inserta man 
eda "  
1140 LOCATE 1,25:PRINT .... 
"F'":CHR$(24)'-"esEta ":CEIR$(24) ;"D" 
:CHR$124) :"uro "=CHR$(24)  "M'';CHR$( 
24)  "oneda " 
1150 RETURN 

1160 REM >>>> ventanas 
1170 WINDOW #1,5,6,10,12 
1180 WINDOW #i,5,6,10,12 
1190 WINDOW #2,1011I0,12 
1200 WINDOW 
1210 WINDOW 
1220 WINDOW #5,12,18,16,16 
1230 WINDOW #6,4,82020 
1240 PEN #6,10:PAF'ER #6,1 
1250 WINDOW #7,131620,20 
1260 PEN #7010:PAPER #7 1 
1270 RETURN 
1280 REM >>>>>>> estado de espera < 
<<<< 
1290 CLS #7:credlt=100:PRINT #6,Ere 
dit: 
1300 r I:GOSUB 1770 
1310 FOR I-1 TO 70 
1320 e$=INKEY$:e$=UF'PER$(e$) 
1330 IF e$-"T" THEN RETURN 
1340 IF e$="F'" OR e$="D" OR e$-"M" 
THEN RETURN 
1350 NEXT i 
1360 GOTO 1300 
1370 d=3:e=O:=O 
1380 FOR i-I TO 500 
139A e$ INKEY$:e$=UPPER$(e$) 
1400 IF e$-"T" TNEN RETURN 
1410 IF e$="P" OR e$-"D" OR e$ "M" 
THEN RETURN 
1420 NEXT i 
1430 GOTO 1300 
1440 REM >}>> comienzo uego 
<< 
1450 avance-O:special=O:punt=O 
1460 IF e$="T" THEN 80T0 1720 
1470 IF e$="P" THEN bet=I:GOTO 1490 
1480 IF e$ "D" THEN bet=5 ELSE bet= 
25 
1490 IF credit<bet THEN GOTO 2160 
1500 credlt=credit-bet 
1510 IF credt<IrO THEN PRINT #6" 
1520 F'RINT #6,credit 
1530 GOSUB 222(} 

1540 e=0:#=0 
1550 IF specia1=l THEN GOSUB 
1560 GOSUB 1770 
1570 c(1)=a-1:IF c111-0 THEN c(1) 5 
1580 IF e 2 AND =3 THEN GOTO 1680 
1590 IF e=2 THEN GOTO 164r 
1601"} IF f=3 THEN d-2:GOSUB 21.150:80T 
0 167r 
610 GOSB 1910 
620 c121 a-1:IF c121=0 THEN c121-5 
1630 IF  3 THEN GOTO 1680 
1640 d-3:GOSUB 2050 
65r c(3)=a-l:IF c131-0 THEN 
660 GOTO 1680 
67A c{2)=a-i:IF ((2)=0 THEN c121-5 
1680 IF avanceO THFN GOSUB 2430 
1690 GOSUB 2570 
1700 IF credit<l OR credlt>900 THEN 
GOTO 1720 
710 GOSUB 370:CLS #7:GOTO 460 
1720 IF redt>lOC THEN plmt=pmt+I 
NT (cred t/500punt ) 
1730 GOSU[ 780 
174C) GOS(IB 480 
1750 GOTO 90 
1760 REM >>>>> uada 
1770 FOR i- TO r 
1780 FOR =I TO 3 
1790 IF =e OR ]= THEN GOTO 182o 
180r PEN #a:IF a=6 OR a-7 THEN PE 
1810 PRINT #.a$(a) 
1820 NEXT  
IA30 $=INKEY$ 
1840 IF f$="l" THEN a=a+I:GOSUB 365 
0 : RETURN 
1850 IF $="2" AND e<>2 THEN e=2:c( 
21 -a: GOSUB 3650 
1860 IF $-"3"AND 4<>3 THEN -%:c 
) =a: GOSUB 
1870 a a+1:IF a=8 THEN a 1 
1880 NEXT  
890 GOSUB 3650 
1900 RETURN 
910 FOR =I TO s 
1920 FOR =2 TO 3 
19n IF - THEN GOTO 2010 
;941 PEN #a:IF a=6 OR a=7 THEN PE 
N #.0 
I750 F': " ,a$(a): 
196 NEXT  
1970 $ ;NFFY 
;980 IF $="2"THEN a-+I:GOSUB 365 
0 : RETURN 
J990 IF $ "3" AND "3 THEN  
) =a= GOSUB 3650 
2000 a=a+:IF a=8 THrN 
2010 FOR k=l TO 8:NEXT 
2020 NEXT 
2030 GOSUB 3650 
2040 RETURN 
2050 FOR i 1 TO t 
2060 PEN #da: IF a=6 OR a=7 THEN F'E 
N 
2070 PRINT #d.a$(a) 
2r180 $ $= I NKEY$ 
2090 IF $="3" THEN a I:GSUB 365 
0 : RE TURN 
2100 a=a+l:IF a=8 THEN a=1 
2110 FOR k=l TO 20:NEXT k 
2120 NEXT 
2130 GOSUB 3650 
2140 RETURN 
2150 REM >>>>>> rep}ay 
2160 LOCATE I24:PRINT SPC(40) 
2170 lOCATE I24:F'RINT "ie quedan " 
;credit:" pts." 
2180 FOR i=l TO 500:NEXT 

2190 80SUD It: 
2200 GOTO 110 
2210 REM 
2220 r INT(RND(1171+I 
2230 r-r+21 
2240 s=INT(RND(1)7)+I 
2250 s=s+7 
2260 t=INT(RND(1)7)+I 
2270 t t+7 
2280 u-INT(RND(1)10)I 
2290 IF u<6 THEN avance INT(s/3) 

2300 RETURN 
2310 REM >>>>>>; especial 
2320 PAPER #5,0:PEN #5,12:PRINT #5 
"SPECIAL": 
2330 GOSUB 3720 
.9340 v=INT(RND()*4)+ 
.9350 IF v<O THFN RETRN 
2360 
2370 w=INT(RND(1)4)+I 
.9380 IF >2 THEN RETURN 
2390 speclal=O 
240() Ct.S #5 
410 RETIIRN 
2420 REM ;>>>>avances 
2430 PAPER #4O=PEN #4,1:F'RIrlT #4, 
"AVANCES": 
2440 GOSUB 
2450 FOR i-I TO 700 
246 e$=INKEY$:IF e$="l" OR e$-"2" 
OR e$="3" HEN GOTO 24811 
2470 NEXT :GOTO 2527 
2480 e=VAL(e$) 
2490 c()-c (e)+l:lF r(e).-8 TItFN 
2500 PEN #e,r(e):IF c(e) 6 OR c (e)- 
7 THEN PEN #eO 
2510 PRINT 
2521") avance=avance-I 
2530 IF avance>O THEN GOTO 24r 
2540 CLS#4 
2550 RETURN 
?560 RFM >>>>>> suerte <<<<<<< 
2570 REM 
2580 mul=O 
2590 IF c(1) 4 OR c121=4 OR c13)=4 
THEN mul-I 
2600 IF (c111=5 OR c131 5) AND 
=5 THEN mul=2 
2610 IF (c(1)=] OR c(3)=I) AND c(2) 
-I THEN mul 4 
2620 IF (c11)=3 OR c13) 3) AND c12) 
-3 THEN mul=6 

c 0 
credit 
e$ 
bet 
o$ 
rstu 
total 
has 
champ 

aS 0 Motriz con los literales de 
los frulos 
bS 0 cS 0 Matrices con las 
configuraciones para 
premos 
dS () eS 0 Matrices con las 
configuraciones para 
premos 
Matriz para contabilidad 
del fruto en cada ventana 
Crdito 
Apuesta realizada (P, D o 
Valor de la apuesta 
Marcador (puntas) 
Ventana en avance o 
retenci6n 
Nombre del jugador 
Variables de azar 
Variables de control de 
parada de ventanas 
Factor de premio 
Cr6dito m6s premio de 
cada jugada 
Cuadro de honor 
Puntuaci6n maxima 
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?630 IF (c(I) 2 OR c(3)-2) AND c(2) 
=2 THEN mul=8 
2640 IF c(I)=3 AND c(2) 6 AND c(3)= 
3 THEN mul 
2650 IF c(1) I AND c(2)=7 AND c(3) 
I THEN mul=12 
2660 IF c(I) 4 AND c(2)=7 AND c(3)= 
4 THEN mul=15 
2670 IF c(I)=5 AND c(2)=6 AND c(',) = 
5 THEN mul=18 
2680 IF c(I)=? AND c(2)-2 AND 
2 THEN mul=20 
2690 IF mul 20 AND u>8 THEN mpecal 
=1:h-I 
2700 IF mul<10 THEN F'RINT #7," 

7710 PRINT #7,mul: 
2720 IF mul=r THFN GOSUB 3550:80T0 
2740 
2730 SOSUB 3410 
2740 total=credlt+(betmul) 
2750 FOR i=credlt TO total STEP bet 
2760 crdi t=i 
2770 IF credit<tO0 THEN F'RINT #6," 
2780 IF credit<tO THEN PRINT #6," " 
2790 PRINT #6,credit: 
2800 GOSUB 3600 
2810 NEXT i 
2820 punt=punt +mul 

3100 LOCATE 4,11 
3110 PRINT "P R E M I 0 S" 
3120 LOCATE 413 
3130 PRINT "=- =======- 
3140 FOR I=I TO 15 
3150 GOSUB 3600 
3160 IF INKEY$< x .... THEN RETURN 
3170 NEXT i 
3180 CLS 
3190 PEN #1,2:PRINT #1,b$(2) 
3200 PEN #1,5:PRINT #Ib$(5); 
3210 PEN #I,4:PRINT #I,b$(4): 
322(I PEN #II:PRINT #I,b$(I); 
3230 PEN #13:PRINT 
3240 PEN #I,2:PRINT #I,c$(2);d$(2): 

2830 
7840 
<< 
2B50 
2860 
2870 
0 
2880 
2890 
,?900 
2910 
792r 
?930 
?940 
2950 
2960 
2970 
2980 
2990 
0 

RETURN 
">>>>> pantalla de premios <<< 

MODE 0 
WINDOW #I, 1,6,1,24:PAPER #I0 
WINDOW #2,11,16,1,24:PAPER #2 

WINDOW #,8,9, 1,24 
PAPER #7...4:PEN #3,0 
WINDOW #4, 18, 19, 1,24 
PAPER #44:PEN #40 
WINDOW #5, 1,20,24,24 
PAPER #5,4:PEN #5,0 
W I ND[IW #x,.?. 
PAPEE #6 4: F'EN 
WINDOW #7,6, 18,6,8 
PAPER #7,4:PEN #70 
CLS 
PRINT #6 " 

3000 PRINT #7," F R U 
I T S "; 
3010 LOCATE 1,13:PRINT "Teclas:" 
3020 LOCATE 1,14:F'RINT .... =====" 
3030 LOCATE 3I6:PRINT "F'-D-M para 
3ugar" 
3040 LCATE 3,18:PRINT "I'-2-3 para 
parar" 
3050 LOCATE 320:PRINT " T term 
3060 PRINT #5," Pulsa una tecla 
3070 80SUB 34c 
3080 IF e$<>"" THEN RETURN 
3090 CLS 

3250 PEN #1,3:PRINT 
3260 PEN #23:FRINT #2,d$(3) 
3270 PEN #2,1:PRINT #2c$(I)d$(I) 
3280 PEN #2,5:PRINT #2,c$(5):d$(5); 

3290 PEN #2,4:PRINT #2,e$(1) ;e$(2) : 
e$ (3) : 
3300 PRINT #3," 20 18 15 
12 10 8 8 6 "; 
310 PRINT #4 " 6 4 4 
2 2 1 1 I "; 
3320 GOSUB 3Z.40 
3330 GOTO 2850 
3340 FOR i=1 TO 600 
3350 e$ INKEY$:e$=UPPER$(e$) 
3360 IF e$<>"" THEN RETURN 
3370 NEXT i 
"  3380 RETURN 
i 3390 REM >>>>k>>>>>> sonidos <<<<','" 
I <<<<<<<<<< 
3400 REM ............ premi us ..... 
3410 FOR I:=mul%lO TO 10 STFP 
3420 FOR I=k TO 10 STEP -tI') 
3430 SOUND  •I, i(') 
3440 NEXT 1 
3450 FOR 1-10 TO k STEP 
3460 SOUND I•I, I0 
3470 NEXT I 
-,480 NFXT . 
3490 FOR k= I TO 5 
3500 SOUND I0 15 
3510 SOUND 1,5(,20 
3570 NEXT k 
3530 RETURN 
3540 REM ............ no premio ... 
3550 FOR k=90 TO 800 STEP 50 
3560 SOUND I, 10 
3570 NEXT k 
3580 RETURN 
3590 REM ............ caida monedas 
3600 FOR k I TO 200 STEP 10 
3610 SOUND lk,l 
3620 NEXT k 
3630 RETURN 
3640 REM ............ parar slots . 
3650 SOUND I, 1000,20 
3660 RETURN 
3670 REM ............ avarices ..... 
3680 SOUND 1,90, 10 
3690 SOUND 1,0• I0 
3700 RETURN 
3710 REM ............ especial .... 
M I C R ........ 
3720 FOR k-I TO 20 
3730 SOUND 1,40 I0 
3740 SOUND 1,0, 1 
3750 NEXT k 
3760 RETURN 
3770 REM  rutina MARCADOR 
3780 MODE I:BORDER ":CLS:re=O 
3790 PRINT:PRINT TAB(4) "Cuadro de 
Honor para MICRO-FRUITS" 
3800 PRINT:PRINT 
3810 FOR a-1 TO 5 
3820 PRINT:PRINT TAB(4) a;"....":na 
$(a)TAB(30) ;SoD(a) 
3830 NEXT a 
3840 FOR a -5 TO I STEP -1 

S erie Or, 

3850 IF punt>champ(a) AND punt<cham 
p(a-1) THEN re-a 
3860 NEXT 
3870 IF re=O THEN 421r 
3880 FOR a=4 TO re STEP -i:na$(a+1) 
=has (a) : champ (a+ I ) =champ (a) : NEXT 
3890 na$(re)="":champ(re) 
3900 CLS:PRINT:PRINT TAB(4) :"Cuadro 
de honor para MICRO-FRUITS" 
3910 PRINT:PRINT 
3920 FOR a=l TO 5 
3930 PRINT:F'RINT TAB(4)a"...."na 
$(a) ;TAB(30) :champ(a) 
3940 NEXT a 
3950 PRINT:PRINT "Pot favor, escrlb 
e tu hombre ":n$="ARCDEFGHIJKLMNOPQ 
RSTUVWXYZ. ]" 
3960 PRINT:PRINT TAB(5) :n$:x-5 
3970 PRINT:PRINT " y al t 
erminar port . ] I' 
3980 LOCATE • 19:PRINT "-" 
9c0 t.OCATE I(').??:F'RIN[  
4000 a$-INKEY$: IF aS= .... TFIEN GOTU 4 
000 • 
4010 IF INKEY(74)=r) OR INKEY(8)=O T 
HEN LOCATE "/., lg:F'RINT .... :x=x-I 
4020 IF INKFY(75) r OR INIllEy(1)- T 
HEN LOCATE x,19:PRINT .... :×=x1 
4030 IF (INKEY(77) 0 OR INFY(9)=r) 
AND MID$(n$, (x-4), I) "]" THEN 4070 
4040 IF INKEY(77)=O OR IN!EY(9)=O T 
HEN na$(re)=na $(re)*MID$<n$, (x-4) , I 
) 
4050 IF LFN(na$(re ))=15 THEN 407r) 
4060 SOTO 3980 
4070 MODE I:CLS 
4080 PRINT:PRINT TAB(5)"Cuadr de 
Honor para MICRO-FRUITS" 
4090 PRINT:PRINT 
4100 FOR a=1 TO 5 
4110 PRINT:PRINT TAB(4);ai"....":na 
$(a)TAB(30) ;champ(a) 
4120 NEXT 
4130 LOCATE 2,20:PRINT "Pcdsa "dlsp 
aro" para jugar otra vez" 
4140 I OCATF 2,22:F'RINT "Pulsa "T" p 
415r a$=INKEY$:IF aS-"" GOTO 4150 
4160 IF a$ "t" OR a$="T" 80T0 4230 
417 " a$ .... 
4180 IF INFrEY(77)=O OR INKEY(9)-O T 
HEN 4?00 
4190 GOTO 4180 
4200 GOSUB 480: RETURN 
4210 IF punt<champ(1) THEN 4070 
4220 re=I:OOTO 3880 
4230 MODE ?:PEN I:END 

Pora que /us edos 
dos los hslados que inc/uyan 
I eslelgotpos, eenventranaludosionenuncos. 
I selle me$ua/ so//c tano/o, 
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VENTANA INFO,  MAflVA PA,  A TECLA$ DE FUNCION 

Por Alberto Sdher 

Todos hemos utilizado en mds de una ocasi6n 

las .p.os.ibilidades que posee el Amstracl .p.ara 
def,nr nuestras propias teclas de func,on, 
con Io que podemos efectuar mucho m6s 
c6modamente la labor de programaci6n. 

u'nque la posibili- 
dad de utilizar dichas teclas posee 
unas ventajas enormes, en muchas 
ocasiones nos encontramos con el in- 
conveniente de no acordarnos en 
qu6 tecla tenemos definido un co- 
mando concreto, por Io que tenemos 
que ir comprobando cada una de las 
teclas hasta encontrar la palabra cla- 
ve que en ese momento deseamos 
utilizar. 
Hemos pensado que una de las 
formas ms sencillas de resolver es- 
te problema, seria crear una venta- 
na informativa en la parte inferior de 
la pantalla, que nos presentar6 en 
cada momento cada una de las te- 
clas de funci6n definidas por nos- 
otros, para asi no tenet que acordar- 
nos de qu6 comando se encuentra en 
cada una de dichas teclas. 
Pues bien, en el programa que 
acompafia a este articulo se encuen- 
tra la soluci6n. Dicha rutina, se en- 
carga de mostrarnos en cada mo- 
mento todas las teclas de funci6n, en 
una ventana situada en la parte ba- 
ja de la pantalla. De este modo, po- 
dremos visualizar cu61es son las nue- 
vas funciones de cada una de las te- 
clas. 
Para la utilizaci6n de esta ayuda 
de programaci6n, Onicamente debe- 
r6is copiar el listado para aquellos 
que posean ensamblador o bien el 
programa cargador en Basic para 
los que no tengan en su poder un en- 
samblador. 
Una vez copiado el listado ejecu- 
taremos el programa Basic. Si hemos 
cometido algOn error, el programa 
nos Io indicar6 por Io que deberemos 
corregir las datas de nuestro progra- 
ma. 
En caso contrario podemos salvar 
ese programa en cinta o disco, de la 
siguiente forma: 

SAVE <<TECLAS>, B, &A000, &150 
Para la ejecuci6n de la rutina una 
vez en memoria, 0nicamente debe- 
remos teclear Io siguiente: 
CALL &A000 
A partir de este momento dispon- 
dremos de dos nuevos comandos 
que podrn ser utilizados desde Ba- 
sic, gracias alas posibilidades de los 
RSX. Estos nuevos comandos son los 
descritos a continuaci6n: 
ION... Activa la ventana informa- 
tiva en la parte inferior de la panta- 
Ila. 
IOFF... Desactiva dicha ventana 
informativa. 
Como ya hab6is podido observar, 
el programa utiliza las posibilidades 
de los RSX, para una mayor como- 
didad del usuario y adem6s utiliza las 
facilidades que ofrece el Amstrad 
para el tratamiento de interrupcioo 
nes. 
Nos podriamos pregunar cu<l es 
I necesidacl de los interrupciones en 
el progrQmcl que estamos describieno 
do. Pues bien, le respuesta seriQ que 
debido a los posibles cambios en las 
teclas de funci6n, la ventana infor- 
mativa quedaria obsoleta si no se 
produjeran las modificaciones perti- 
nentes y para que estas modificacio- 
nesse produzcan, no nos queda otro 
remedio que utilizar las interrupcio- 
nes. Asi pues, la rutina se ejecuta ca- 
da 1/50 segundos y se producen las 
modificaciones si 6stas son precisas. 
Vamos a entrar en la descripci6n 
del programa propiamente dicho. En 
primer lugar podemos observar que 
las primeras lineas del programa son 
suficiente conocidas por nosotros, ya 
que su misi6n es indicar al sistema 
que existen comandos RSX. A partir 
de ahi, definimos los nuevos coman- 
dos y su tabla de saltos, para que el 
sistema sepa a qu6 atenerse cuando 
un comando RSX es Ilamado desde 
Basic. 
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El programa en si, empieza en la 
linea 220 que es donde se realiza el 
tratamiento de interrupciones, indi- 
c6ndole al sistema que se va a pro- 
ducir una interrupci6n y la posici6n 
de memoria a donde tiene que sal- 
tar cuando 6sta se produzca. En la 
linea 300 podemos ver la rutina en- 
cargada de desactivar la interrup- 
ci6n, cuando no deseamos ver en 
pantalla la ventana informativa. 
Una vez realizados estos pasos 
preliminares, entramos en la rutina 
a la que saltar6 el ordenador cuan- 
do se produzca la interrupci6n. En 
primer lugar tenemos la definici6n de 
ventanas, una para la informaci6n, 
en la parte inferior y otra en la par- 
te superior, en la cual nosotros po- 
dremos realizar nuestros programas 
o ejecutarlos. 
A continuaci6n se produce un che- 
ueo que comprueba en qu6 modo 
e pantalla se est6 trabaiando, si en 
ese momenta se trabaja en modo O, 
no se ejecuta la rutina, ya que debi- 
do a la anchura de caracteres, no se 
podrian imprimir en pantalla el con- 
tenido de las teclas de funci6n. Si es- 
t6 en otro m'odo, entonces se hacen 
los cambios necesarios para que la 
presentaci6n sea la correcta en ca- 
da modo. 
Ahora nos encontramos con un bu- 
tie, encargado de comprobar si se 
ha producido alg0n cambio en el 
contenido de las teclas de funci6n, o 
sea, si nosotros hemos cambiado al- 
guna de esas teclas, si es asf, se sal- 
ta a la rutina encargada de imprimir 
en pantalla el contenido de dichas te- 
clas. Sial salir de dicho bucle se com- 
prueba que no se ha producido nin- 
g0n cambio, entonces se retorna al 
Basic. 
Par Oltimo nos encontramos con la 
rutina encargada de la impresi6n de 
las teclas de funci6n en la ventana in- 
formativa. AI inicio de esta rutina se 
carga el registro doble DE con la po- 
sici6n de memoria en dande se en- 
cuentra almacenado el contenido de 
las teclas de funci6n. 
El primer Byte de esa posici6n de 
memoria, nos indicar6 la Iongitud de 
la cadena de la primera tecla de fun- 
ci6n y a continuaci6n se encuentra 
dicha cadena almacenada en forma 
de caracteres ASCI, el byte que sigue 
a continuaci6n nos indicar6 la Iongi- 
tud de la cadena de caracteres co- 
rrespondientes a la tecla de funci6n 
siguiente, y a continuaci6n tendre- 
mos los caracteres correspondientes 
a esa segunda tecla de funci6n, y asf 
sucesivamente hasta Ilegar a la ca- 

, rogramAccion 

dena de caracteres que definen la Ol- 
tima tecla. 
Par Io tanto, Io que se hace para 
imprimir el contenido de coda una de 
las teclas, es tomar en primer lugar 
su Iongitud y la traspasamos al regis- 
tro B, que ser el encargado de in- 
d/car cu6ntas veces se debe repetir 
el bucle de impresi6n, a continuaci6n 
tomamos el valor del siguiente byte 
que pertenecer ya a Io cadena que 
define la primera tecla, y Io imprimi- 
mos Ilamando a la rutina del firmwa- 
re encargada de ella, y as/ hasta 
completar el bucle. 
Una vez hecho esto se vuelve a re- 
petir el mismo proceso para la impre- 
si6n del contenido de la segunda te- 
cla de funci6n, repitiendo el proce- 
so hasta Ilegar a la Oltima tecla de 
funci6n almacenada en esa posici6n 
de memoria. 
Par 01timo, diremos que la rutina 
que se encuentra listada a continua- 
ci6n, funcionar perfectamente en 
un Amstrad modelo 464, los usuarios 
que posean otro modelo, deber6n 
tener en cuenta la siguiente modifi- 
caci6n: 
La etiqueta con el nombre de: 
TECDEF: EQU #B446 
deber6 cambiarse par la siguiente: 
TECDEF: EQU #BS00 
6sta se encuentra situada en la linea 
1390 del listado ensamblador. 
Para aquellos que prefieran el car- 
gador Basic, deber6n cambiar las li- 
neas 300 y 400 par las que se indi- 
can a continuaci6n: 
300 DATA 33, 144, 181,221,126, 
0,71 
400 DATA 48, 161, 17, 144, 181, 
213, 221 
adem6s la linea 50 deber6 ser la si- 
guiente: 
50 IF SUMA < > &75FF THEN 
PRINT <<ERROR EN DATA% 
Una vez efectuados dichos cam- 
bias et programa correr en un Am.:- 
trod 664 y en un 6128. 
Nota: Los tedas de funddn est6n numeradas del 
i9 al 9. Pora definir una, se usa la arden KEY, segui. 
da del nrnero de teda y de la cadena de 6rdenes. 
Par eiemplo: 
KEY , Z/Sl'+OIRS(13) 
a/pulsar CTRL + , aparecerd en panta//a el Iislado 
del programa. 
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PROGRAMA i 

10 FOR N=&AC)Cx' TO &AI4A 
20 READ A:SUMA=SUMA+A 
30 POKE N, A 
40 NEXT 
50 IF SUMA<>&75FF THEN PRINT "ERROR 
EN DATAS" 
60 DATA I.,9, 160,33,23, 160, 195 
70 DATA 209, 188, 17, 160, 195, 27, 160 

80 DATA 
90 DATA 
1 O0 DATA 
1 I0 DATA 
 20 DATA 
130 DATA 
140 DATA 
15o DATA 
160 DATA 
170 DATA 
 80 DATA 
 90 DATA 
200 DATA 
210 DATA 
220 DATA 
230 DATA 
240 DATA 
7 
250 DATA 
26(') DATA 
270 DATA 
280 DATA 
290 DATA 
30o DATA 
3.0 DATA 
320 DATA 
330 DATA 
340 DATA 
350 DATA 
360 DATA 
370 DATA 
380 DATA 
390 DATA 
400 DATA 
410 DATA 
420 DATA 
430 DATA 
440 DATA 
450 DATA 
460 DATA 
470 DATA 
480 DATA 
490 DATA 
500 DATA 
510 DATA 
520 DATA 
530 DATA 

195, 36, 16(I., 79,206,79, 7(]) 
198, o, 0, O, 0, 0, 62 
1,205, 4, 188,205, 45, 160 
201, 205, 68, 160,6, 1,205 
4, 188,201,33,80, 160,6 
129, 17,87, 160,205,239, 188 
33, 74, 160, 17,50,0, 1 
50,0, 195,233, 188,33,74 
160, .95,236, 188, 0,0, 0 
O, O, O, O, O, O, 0 
0,0,0205, 120, 187,34 
72, 161,205, 156, 187,205, 126 
187,38C)80. . ,:. ,46,: 3 
3024,205, 102, 187,205, 137 
160, 38, O, 22, 80, 46,0 
30,,205,1C)2,. aa. . 187,42,72 
61,205, 117, 187,205 123, 8 

2(:)5, 156, 187,201,205, 7, 
50, 71, 161,254,0,200,33 
 , 1,205, 117, 187,205, 96 
187,254, 143,40,56 6,0 
50,68, 161, 
33, 70, 180,221, 126,0,71 
 - o?I 126 0 oI 35 
ii, 0 95, 25, 16,245,58 
68, 161,60, 50 68, 161,254 
10,40   24 
i  226 237 91 
69, 161,4,69, 161, 122, 188 
32  .., TM  123. 189,. 200,.. 205. 108 
187,62,0,50,68, 16,58 
71, 161,254, i,.32,6,221 
33? 161,24 4 
8,. 161, 17,70,.. 80,213,I 
I02022J 35 
221 35205, 117, 187,._ . 
, . . . ?09  26 
71, 19 197,26 
. , z l.J, . , 93 
187. r , , , . 
. 4J9, 19 193 16 24558 
68, 161, 60, 50, 68, 16,254 
I0,20o,24215 I, 1,9 
, 7, ,2, ,32, 1 
1,2,9,. . . 17, 
 o 17 i 
,32,. i,. I, , 
.... , 1,49, 1,64, I, 1 
z,17, ° 33 
64, 2, 0, 0, 0, 1,0 
0, 0, 0,0, O, O, 0 

A008 
A88 109A0 
A003 2117A0 
A006 C3DIBC 
A009 IIA8 
A80B C31BA0 
ABlE C324A0 
A11 4F 
A012 CE 
A013 4F46 
A015 C6 
A016 0 
A017 
A01B 3E01 
AOID CDBEBC 
A020 CD2DA0 
A023 C9 
A024 CD44AO 
A027 3E01 
A029 CDOEBC 
A02C C9 
A02D 2150A0 
AB30 0681 
A832 1157A0 
A035 CDEFBC 
A038 214AA0 
A03B 113280 
A03E 0132B0 
A041 C3EgBC 
A044 214AA0 

A047 C3ECBC 
A04A 
A050 
A057 CDTBBB 
ABSA 2248AI 
A05D COgCBB 
A060 CDTEBB 
A63 268 
A065 1650 
A67 2E17 
A069 IEI8 
A06B CD66BB 
A06E CD89A0 
A071 2600 
A07 1650 
A075 2E00 
A077 IE16 
A079 CO66BB 
A07C 2A4BAI 
A07F CD7580 
A82 CD7BBB 
A885 CD@CB8 
AOB8 C9 
A089 CDIIBC 
A08C 3247AI 
A08F FE@O 
A091 C8 
A092 210101 
A095 CD7508 
A098 CD60BB 
A09B FEBF 

10 
20 
3 
40 
5 TABLA: 
60 
70 
80 NAME: 

0RG #A000 
LD BC,TABLA 
LD HL,ESPACE 
JP RSX 
DEFW NANE 
JP ON 
JP OFF 
DEFM 
90 DEFB 
100 DEFM "OF" 
110 DEFB "F'+#80 
120 OEFB 0 
130 ESPACE: DEFS 4 
140 ON: LD A,I 
15 CALL SETMOD 
160 CALL ACTI 
170 RET 
180 OFF: CALL DESAC 
198 LO A,I 
280 CALL SETMOD 
210 RET 
220 ACTI: LO HL,BLOCK 
230 LD B,129 
240 LD DE,EVENT 
250 CALL INICIA 
260 LO HLoREL0J 
270 LD DE,50 
280 LD 8C,50 
290 JP TICKS] 
300 DESAC: LD HL,RELOJ 

310 JP TICKN0 
320 RELOJ: DEFS 6 
330 BLOCK: OEFS 7 
340 EVENT: CALL GETCUR 
358 LD (CURSOR)HL 
360 CALL TXTINV 
378 CALL CUROFF 
388 LD H,O 
398 LO D,80 
400 LD L,23 
410 LD E,24 
420 CALL WINDOW 
430 CALL ENTRA 
448 LD H,8 
450 LD D,80 
460 LD L,8 
470 LD E22 
480 CALL WINDOW 
490 LD HL,(CURSOR) 
500 CALL LOCATE 
510 CALL CURON 
520 CALL TXTINV 
530 RET 
540 ENTRA: CALL GETMOD 
558 LD (MODO),A 
568 C:P 0 
570 RET Z 
588 LD HL,#0101 
598 CALL LOCATE 
600 CALL READ 
&lO CP 143 
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A89D 2838 620 JR Z,EMP 
A89F 3E80 638 L0 A,0 
AOAI 3244AI 648 LD (FLAG),A 
ASA4 218080 658 LD HL,0 
AOA7 DD214684 668 LD IXoTECDEF 
A@AB DOTE0@ 070 BUS: LD A,(IX) 
AOAE 47 680 LD B,A 
ASAF DO23 698 INC IX 
AOBI DD7E08 788 BUSI: LD A.(IX) 
ASB4 DO23 718 INC IX 
AOBb 1680 728 LD 
AOB8 5F 730 LD E,A 
AOB9 19 748 ADD HL.DE 
ASBA 18F5 750 OJNZ 8USI 
ASBC 3A44AI 768 LD A.(FLAG) 
AOBF 3C 778 INC A 
AOC0 3244AI 780 LO (FLAG),A 
AOC3 FESA 798 CP 
AOC5 2882 888 JR Z,SIG 
A8C7 18E2 818 JR BUS 
AOC9 EDSB45A1 828 SIG: LD OE,(SUMA) 
AOCD 2245AI 838 LD (SUMA) 0HL 
ASD8 7A 840 LD A,D 
A801 8C 858 CP H 
AOD2 2883 860 JR NZ,EMP 

' oto load ave ed 

I 

AOD4 78 878 LD A,E 
A@D5 8D 888 CP L 
ASD6 C8 898 RET Z 
A@D7 CD6CBB 988 EMP: CALL CLEAR 
ASDA 3E08 918 LD 
ASDC 3244AI 928 LD (FLAG),A 
ASDF 3A47A1 930 LD A,(MOD0) 
ABE2 FESI 948 CP I 
ABE4 2886 958 JR NZ,MOD 
ABE6 DD211CAI 968 LO IX,POS 
AOEA 1804 978 JR YASTA 
AOEC O02138AI 988 HOD: LD IX,POSI 
ASF8 114684 ?o0 YASTA: LD DE,TECOEF 
AOF3 D5 1888 8UCI: PUSH DE 
ASF4 DD6608 1018 LD 
AOF7 DD23 1020 INC IX 
AOF9 DD6E00 1030 LD L,(IX) 
ASFC DD23 1840 INC IX 
ASFE CD758B 1858 CALL LOCATE 
AISI DI 1068 POP DE 
A182 IA 1870 LD A,(DE) 
A103 47 1088 LD B,A 
A104 13 1098 INC DE 
A185 C5 1188 
A186 IA 1118 LD A,(DE) 
A187 05 1128 PUSH DE 
A188 CD5D88 1130 CALL PRINT 
A10B Ol 1148 POP DE 
AIOC 13 1158 INC DE 
AIOD CI 1160 POP BC 
AISE 18F5 1170 DJNZ BUC 
A110 3A44A1 1188 LD A,(FLAG) 
A113 3C 1198 INC A 
All4 3244AI 1200 LO (FLAG),A 
A117 FEOA 1210 CP 18 

p rogramA ci6n 

All9 
AlIA 
8COE 
BCDI 
8CEF 
BCE9 
BCEC 
8878 
889C 
887E 
BB66 
8878 
BC11 
B860 
886C 
BB50 
8446 
A11C 
A124 
A12C 
A138 
A138 
A148 
A144 
A145 
A147 
A148 

C8 
18D7 
81018981 
28818102 
19822802 
81811181 
48818102 
31024002 
01 

1228 RET Z 
1230 JR BUCI 
1240 SETMOD: EQU #BCOE 
1258 RSX: EQU #BCDI 
1268 INICIA: EQU #SCEF 
1278 TICKSI: EQU #8CE9 
1288 TICKNO: EQU #BCEC 
1298 GETCUR: EOU #B878 
1388 TXTINV: EQU #889C 
1318 CUROFF: EQU #887E 
1328 WINDOW: EQU #8866 
1338 LOCATE: EOU #8875 
1348 CURON: EQU #BBTB 
1358 GETM00: EQU #8CII 
1368 READ: EQU #886@ 
1378 CLEAR: EOU #886C 
1380 PRINT: EOU #8850 
1398 TECOEF: EQU #8446 
1488 POS: DEFB I,I,9,1,17,1,25,1 
1418 DEFB 32,1,1,2,9,2,17,2 
1420 DEF8 25,2,32,2 
1430 POSI: DEFB 1,1,17,1,33,1,49,1 
1448 DEF8 64,1,I,2,17,2,$3,2 
1450 DEF8 49,2,64,2 
1468 FLAG: DEFS I 
1478 SUMA: DEFS 2 
1488 MOD0: DEFB I 

1490 CURSOR: DEFS 2 

keNd,'ru" 
kev ,'Iis 18" * 
ead 
• oto lod save 

I ETIQU TA$ 

ACTI A02D BLOCK A850 BUC A105 
BUCI ASF3 BUS ASAB BUSI ABBI 
CLEAR BB6C CUROFF BBTE CURON 8878 
CURSOR A148 DESAC A844 EMP ASD7 
ENTRA A889 ESPACE A017 EVENT A057 
FLAG A144 GETCUR BBTB GETMOD BC11 
INICIA BCEF LOCATE 8875 MOO ABEC 
MOD0 A147 NAME A011 OFF A824 
ON A01B P0S AIIC POSI A138 
PRINT BB5D READ 8868 RELOJ A84A 
RSX 8CDI SETMOD BCOE SIG AOC9 
SUMA A145 TABLA A089 TECDEF 844 
TICKNO 8CEC TICKSI 8CE9 TXTINV 889C 
WINDOW B866 YASTA AOF0 
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N$TRUCCIONE$ 
D 
YD$PLAzAMI NTO (11) 

Como recordaris en el 61timo capftulo 
habl6bamos de una serie de instrucciones 
de rotaci6n y desplazamiento, que actuaban 
sobre el acumulador. Pues bien. hoy 
empezaremos hablando de esas mismas 
instrucciones pero referidas a diferentes 
registros. 

Is instrucciones de 
aplicadas al resto de los re- 
iStro se representan de la si.a. " ,- 
rma.  
RRCm 
RRm 
el operando (m)) puede set cual- 
qulera 8- .s e.gistros simples B, C, 
D, E, H, L, A o bien (HL), (IX+d) o 
IY+d). 
Como ya hemos dicho, act0an 
exactamente igual que las explicadas 
en el capitulo anterior: la 0nica dife- 
rencia reside en el operando m que 
sustituye al registro A. 
Dicho esto supongo que ya habr6is 
intuido el resultado de la ejecuci6n 
de los dos primeros programas que 
presentamos. El primero constituye 
una rotaci6n a la derecha del conte- 
nido de la posici6n de memoria a la 
que apunta el registro doble HL, te- 
niendo en cuenta que el contenido 
del bit 0 se copia en el bit 7 y tam- 
bi6n en el flag Carry. El segundo 
programa, tambi6n constituye una 
rotaci6n a la derecha, esta vez de la 
direcci6n de memoria a la que apun- 
ta (IX+ 1), pero esta vez, el conteni- 
do del bit 0 se copia en el flag Carry 
y el contenido de ste se traspasa al 
bit 7. 
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Instrucci6nSLAaritmtica I 

Vamos aver ahora otra nueva ins- 
trucci6n que produce un desplaza- 
miento en el registro al que se apli- 
ca. Se representa de la siguiente ma- 
nera: 
SLAm 
el operando 'm' puede ser cualquie- 
ra de los registros B, C, D, E, H, L, 
A o bien (HL), (IX+d) o (IY+d). 
La ejecuci6n de esta instrucci6n 
produce un desplazamiento aritm6- 
tico en el contenido del operando 
'm'. El bit 0 se pone a cero, el conte- 
nido previo del bit 0 se copia en el 
bit 1, el contenido previo de 6ste se 
copia en el bit 2 y asi sucesivamen- 
te. El contenido del bit 7 se copia en 
el flag Carry del registro F. 
Esquem(ticamente produce el si- 
guiente efecto: 
C7654,--32,--10  0 
Tras la ejecuci6n de esta instruc- 
ci6n, el contenido del bit 0 siempre se- 
r6 cero, y el contenido del registro en 
cuesti6n se ve multiplicado por dos. 
Un ejemplo de actuaci6n Io tene- 
mos en el programa n0mero 3. Aqui 
hemos aprovechado esta instrucci6n 
para multiplicar por dos el conteni- 
do del acumulador; asf pues, si ini- 
cialmente hemos cargado el acumu- 
lador con el valor 2, despu6s de la 
ejecuci6n del programa el contenido 
del acumulador ser 4. Esto puede 
observarse mirando la posici6n de 
memoria #7000 despu6s de la ejecu- 
ci6n del programa. 

Ahora bien, si nos fijamos en el si- 
guiente programa, veremos que al 
cargar el acumulador con el valor 
128, tras la ejecuci6n de SLA A, el 
contenido del acumulador vale cero 
en lugar de multiplicarse por dos. Asi 
pues, podremos aprovechar la capa- 
cidad de duplicar el contenido de un 
registro, siempre y cuando el conteni- 
do del bit 7 de 6ste contenga un cero. 

Instrucci6n SR' 

La siguiente instrucci6n a estudiar 
se representa de la forma indicada 
a continuaci6n: 
SRA m 
donde el operando 'm' puede ser 
cualquiera de los registros B, C, H, 
L, D, E, A o bien (HL), (IX+d) o 
(IY+d). 
La ejecuci6n produce un desplaza- 
miento aritm6tico hacia la derecha 
del contenido del operando m. El 
contenido del bit 7 se copia en el bit 
6, el contenido previo del bit 6 se co- 
pia en el bit 5 y as/sucesivamente. 



El contenido del bit 0 se copia en el 
flag Carry del registro F, y el conte- 
• nido del bit 7 no :mbia. 
Esquem6ticamente se puede re- 
presentar como sigue: 

_/6543210C 
Podemos ver c6mo actOa esta ins- 
trucci6n ejecutando el programa nO- 
mero 5. En primer lugar cargamos 
en el registro doble HL la posici6n de 
memoria #7000, y luego mediante la 
instrucci6n SRA (HL) producimos un 
desplazamiento hacia la derecha. 

Instrucci6n SRL 

Otra instrucci6n de este tipo es la 
que se representa a continuaci6n: 
SRL m 
donde el operando 'm' puede ser coo 
mo hemos dicho en repetidas ocasio- 
nes, cualquier registro o bien (HL), 
(IX+d) o IY+d). 

Tras la ejecuci6n, el comando 'm' 
• se desplaza hacia la derecha. El can- 
tenido del bit 7 se copia en el bit 6, 
el contenido previo de 6ste se copia 
en el bit 5 y asi sucesivamente. El 
contenido del bit 0 se copia en el flag 
Carry y el bit 7 se resetea (se pone 
a cero), por Io que el contenido del 
registro queda dividido por dos. 
El efecto producido por dicha ins- 
trucci6n podemos representarlo de la 
siguiente manera: 

la instruc ,n SRL A. Una vez hecho 
estcs el contenido del Carry es 1, 
podremos decir que el valor que con- 
tenia el registro dado era impar, por 
el contrario si el Carry contiene un O, 
el valor de dicho registro era par. 

076543210C 

En el programa nOmero 6 pode- 
mos ver una posible utilizaci6n pr6c- 
tica. El programa en cuesti6n es ca- 
paz de distinguir entre un nOmero 
par y un ngmero impar, eso si, siem- 
preen el rango de 0 a 255, que es 
el m6ximo valor que se puede car- 
gar en un registro. 
La explicaci6n es bien sencilla: da- 
do que el bit 0 es el Onico bit que pue- 
de dar a un registro un valor impar, 
Io que hacemos es pasar el conteni- 
do de ese bit al flag Carry mediante 

Instrucciones de 
manipulaci6n 
de nibbles: RLD y RRD 

Vamos aver ahora una instrucci6n 
algo m6s complicada que las ante- 
riores, pero muy potente. Se repre- 
senta como sigue: 
RLD 
Esta instrucci6n actga sobre el acu- 
mulador y sobre el registro doble HL. 
Tras la ejecuci6n el contenido de 
los cuatro bits de orden bajo, (bits 3, 
2, 1, 0), de la direcci6n de memoria 
a la que apunta HL se copia en los 
bits de orden alto, (bits, 7, 6, 5, 
de esa misma direcci6n de memoria. 
El contenido previo de esos cuatro 
bits de orden alto, se copian en los 
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cuatro de arden bajo del acumula- 
dor, (registro A), y el contenido pre- 
via de los cuatro bits de arden bajo 
del acumulador se copian en los cua- 
fro bits de arden bajo de (HL). El 
contenido de los cuatro bits de arden 
alto del acumulador no quedan afec- 
tados. 
Vamos aver esquem6ticamente el 
efecto producido tras la ejecuci6n de 
dicha instrucci6n: 

A 7654 32]0 7654 3210 (HL) 

Ahora un ejemplo pr6ctico para 
aclarar un poco m6s el asunto. Su- 
pongamos que los valores del acu- 
mulador y del contenido de HL sean 
los siguientes. 
 I 
A 1001 1101 1100 0111 (HL) 
despus de la ejecuci6n los nuevos 
valores ser6n los siguientes: 
I I 
A lOOl 1100 0111 llOl(HL) 
i I 
En el programa nOmero 7 pode- 
mos vet un eiemplo de aplicaci6n de 
RLD. En primer lugar, cargamos el 
acumulador con el c6digo ASCI de 
la letra 'A', luego apuntamos el re- 
gistro doble HL a la posici6n de me- 
moria #7000, cargando en esa po- 
sici6n el valor #23 y luego mediante 
la ayuda de la instrucci6n RLD Iogra- 
mos imprimir en pantalla las tres pri- 
meras letras del abecedario. 
de est6 el misterio? Buena, pues 
la explicaci6n es muy sencilla, s61o 
basta con mirar en c6mo actOa dicha 
instrucci6n. Dado que estos tres ca- 
racteres tienen los bit de arden bajo 
exactamente igual, entonces Io que 
hemos hecho es cargar en los cua- 
tro bits de arden alto de (HL), con el 
contenido de los cuatros bits de or- 
den bajo del caracter 'B', y cargar 
en los cuatro bits de arden bajo de 
(HL), los correspondientes cuatro bits 
de arden bajo del caracter 'C', ob- 
teniendo asi el resultado previsto. 
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Instrucci6n RRD 

La siguiente instrucci6n que vamos 
aver, y con ella terminamos el cap/- 
tulo dedicado a instrucciones de ro- 
taci6n y desplazamiento de bits, es 
muy semejante a la anterior, y se re- 
presenta coma sigue: 
RRD 
Tras la ejecuci6n, el contenido de 
los cuatro bits de arden bajo cle la 
posici6n de memoria a la que apun- 
ta HL, se copian en los cuatro bits de 
menor arden del acumulador. El 
contenido previo de los cuatro bits de 
arden bajo del acumulador se copian 
en los cuatro bits de arden alto de 
(HL). El contenido previo de los cua- 
tro bits de mayor arden de (HL) se 
copian en los cuatro bits de arden 
bajo de (HL). El contenido de los cua- 
tro bits de mayor arden del registro 
A no son afectados par esta instruc- 
ci6n. 
Gr6ficamente, la operaci6n que 
realiza RRD es: 

A 7654 3210 7654 3210 (HL) 

Sin duda con un 
ejemplo se entender6 
m6s f6cilmente 

Supongamos que los valores del 
acumulador y del contenido de HL, 
son los siguientes: 
I 
,, 
A 1001 1010 1100 1111 (HL) 
despu6s de la ejecuci6n de RRD, 6b- 
tendremos los siguienfes valores: 
I 
,, 
A 1001 1111 1010 1100 
,, 
I 
En el programa nOmero 8 pode- 
mos ver una aplicaci6n pr6ctica. La 
filosofia es idntica a la del progra- 
ma anterior, pero aqui lo que hace- 
moses imprimir los fres primeros nO- 
meros; de esfa forma podemos guar- 
dar en una sola posiciOn de memo- 
ria los c6digos ASCI de dos nOmeros, 
ahorrando una posiciOn de memoria 
par cada nOmero a imprimir. 
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EMPEZAMOS A POTENCIAR TU AMSTRAD 

NUEVO INTERFACE RS232 
Permite comunicar los ordenadores Amstrad 
CPC 464, CPC 664 y CPC 6128, con impresoras y plotters 
con entrada serie, modems y otros ordenadores 

CARACTERISTICAS TECNICAS 
• Salida serie RS-232C est.ndar 
• Software contenido en Eprom, por Io que no 
ocupa memoria del usuario. Genera comandos para 
facilitar el uso desde el basic. 

...TAMBIEN PERIFERICOS PARA AMSTRAD 
Es un producto desarrollado y fabricado en Espaa pot: 

PRODUCTOS DISTRIBUIDOS: LSB, S.A. 

Sb.nchez Pacheco, 78 - 28002 MADRID - TEL.: 413 92 68 
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A travs de esto secci6n se pre- 
tende resolver, en la medida de Io 
posiNe, todas los posibles dudas 
que atormenten, a todas 
personas interesadas en el mundo 
del AMSTRAD, sean o no poseedo- 
res de uno y, si Io son, se encuen- 
trenen cualquier nivel de destrezc 
en su maneio. 
Semanalmente, aparecen en estas 
pcginas las consultas de la mayor 
cantidad de usuarios posible; ella re- 
dundarc en un mejor servicio yen 
un contacto m6s estrecho entre to- 
dos nosotros a troves de la revista. 
SIN DUDA ALGUNA estc 
abierta a todos. 

Me dirijo a Vds. a trav6s de la sec- 
ci6n ,<SIN DUDA ALGUNA)) de la re- 
vista AMSTRAD Semanal para que 
me aclaren mis <<dudas)) entorno a la 
unidad de disco del Amstrad. 
Soy el AFORTUNADO poseedor 
de un CPC 6128 y he leido repetida- 
mente en vuestra revista que est6 a 
la venta un interface para unidad de 
d sco de 5.25 . .Sgnfica esto que se 
puede conectar b travs de ella cual- 
quier unidad de disco de este forma- 
tog. iSignifica tambi6n que con ella se 
poarian carter los programas escri- 
tos en este formato en CPM 2.2 o 
PLUS? 
Es mi intenci6n aplicar el CPC 6128 
en aplicaciones *<serias)) y desearia 
me aclararan este punto ya que con 
ella podria correr par ejemplo: Dba- 
se II, Friday, etc., es esto asi? 
A la espera de sus noticias le salu- 
da atte. 
Luciano Sancha (Huelva) 
La interface, efectivamente, existe, 
pero que nosotros sepamos, todavfa 
no se comercializa en Espaa. 
No estamos seguros de si se pue- 
de conectar al interface cualquier 

unidad de disco de 5 1/# o bien dsta 
requiere condiciones especiales. Te6- 
ricamente, na valdHa cualquiera. 
Con esta unidad sF podHan correr- 
se en el Amstrad tadas los progra- 
mas CP/M, pero, o bien vienen ya 
instalados alas particulares caracte- 
rsticas del monitor y teclado Ams- 
tracl, o bien tendHa que instalados 
usted mismo. 
En el mejor de los casos, estos pro- 
gramas llevaran un programa lla- 
mado Install o alga as que se Io per- 
mitirfa, normalmente respondiendo 
una serie de preguntas sencillas a 
tray,s de mends. En el pear de los 
casos, ousted o la casa que le ven- 
diera el programa tendHan que ins- 
talarlos ensamblador en ristre. 
Su deseo de emplear el Amstrad 
con aplicaciones serias s61o tiene el 
Ifmite de la memoria del ordenador 
que tenga, porque hay programas 
que se salen fuera de las posibilida- 
des de estas mdquinas. De cualquier 
forma, la instalaci6n de una unidad 
de disco de 5 1/# ampliarfa conside- 
rablemente el manta de programas 
a los que tendrFa acceso, siempre ba- 
jo CP/M. 

Soy poseedor de un Amstrad CPC 
464. Mis dos preguntas son: 
1. Qu6 se tiene que hacer para 
encontrar un programa, en un cas- 
sette (donde hay varios programas), 
sin tener que pasar par todos los pri- 
meros? 
2. EI Amstrad tiene un joystick 
especial, o en cambio son todos es- 
tndar? 
Gracias par su atenci6n, y perd6n 
par los errores, ya que soy a0n un 
principiante. 
Pablo Mo Vidallet (Zaragoza) 
1. La dnica soluci6n es saber de 
antemana d6nde se encuentra el 
programa que estds buscando. Bien 
sabigndolo a ¢¢ojo y avanzando el 
cassette hacia allf, o bien usando el 
cassette con cuentavueltas y apun- 
tando en qu cifra se encuentra ca- 
da programa. A todo esto, una de 
las razones para preferir los discos 
a los cassettes es precisamente el 
problema que td planteas, y que, co- 
ma yes, tiene dif/cil soluci6n. 
2. Un joystick estdndar te servird 
perfectamente, ya que no necesitas 
ningdn tipo de interface para que 
funcione, coma es el caso de otros 
ordenadores. Lo que marca incom- 
patibilidades entre joystick son las in- 
terfaces, no el mando de joystick pro- 
piamente dicho. 

Hola, me he comprado hace po- 
co un Amstrad CPC 6128 par Io tan- 
to soy un <<novato en programaci6n, 
aunque compro la revista semanal- 
mente y presto un especial inter6s a 
la secci6n <Primeros pasos. Me gus- 
taria qu6 me indic6rais libros y de- 
mos material para sacarle el mcximo 
provecho a mi ordenador. 
Tambi6n me gustaria que me indi- 
crais c6mo puedo grabar los pro- 
gramas en disco, ya que en el ma- 
nual no Io veo clara. 
Sin nada m6s, as agradezco el fa- 
vor que as demando y deciros que 
sig6is con la labor ya que me pare- 
ce estupenda. 
Javier Ruiz. 

Es diffcil recomendar un /ibra en 
concreto, porque hay muchos y muy 
buenos. En tu casa personal, parece 
que estds empezando, cua/quier li- 
bra dedicado a principiantes junta 
con nuestra secci6n de cPrimeros pa- 
sos te servird perfectamente. 
El mgtado para salvar un progra- 
ma en disco es muy sencillo; teclea, 
con tu programa en la memoria del 
ardenador: 
SAVE NOMBRE 
en donde NOMBRE es el que t ha- 
yas elegido para tu programa. Esto 
te guardara en el disco cualquier 
programa Basic. 
Opcionalmente, puedes escribir: 
SAVE cNOMBRE,A 
para conservar el programa en for- 
mato ASCII en lugar de coma TO- 
KENS, o sea, ndmeros clave que re- 
presentan secuencias de letras para 
el Amstrad. Par ejemplo, un supo- 
ner, la palabra clave DATA se alma- 
cena en formato ASCII coma D-A-T- 
A, mientras que coma TOKEN en el 
disco habHa un ndmero que repre- 
senta a esa palabra para el ordena- 
dor. 
Los programas en lenguaje m6qui- 
na se graba de forma muy parecida: 
SAVE ¢¢NOMBRE,, DIRECCION, 
LONGITUD 
en donde NOMBRE ya sabes Io que 
es, DIRECCION es la direcci6n de 
comienzo del programa en mquina, 
y LONGITUDes la Iongitud del pro- 
grama en bytes. 
Suponte que tienes un programa 
en mdquina llamado ¢¢mquina car- 
gado en la direcci6n hexadecimal 
&AOOO y que tiene 10 bytes de Ion- 
gitud; diras: 
SAVE m6quina, &AO00, 1000 
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ro sorted = 
iH  e st .anadoreS' 
va tle.ne    c 664 -.--,, 
y cuatro 

I dia 17 de enero 
de 1986 se celebr6 en los dependen- 
cias de la redacci6n de AMSTRAD $e- 
manal el sorted entre los lectores 
que en su dia rellenaron, y enviaron 
el cup6n-encuesta que apareci6 en 
nuestra revista desde el n0mero 1 
hasta el nOmero 4. 
Los premios consistian en cuatro 
unidades de disco y un CPC664. 
La lista de los afortunados lectores 
y de los premios que les han corres- 
pondido es la siguiente: 

PRIMER PREMIO: 
AMSTRAD CPC664 
Jes0s Israel Galvani Dfez 
(ld afios) 
C/ Pintor Lorenzo Casanova, 48-5 
30033 Alicante 
Tel. 22 83 18 

SEGUNDO PREMIO: 
UNIDAD DE DISCO 
Marta Rosell i Minguella (15 
aos) 
C/Triunf, 6 - esc. 18, 2-1 
Barcelona 
Tel. 389 40 51 

TERCER PREMIO: 
UNIDAD DE DISCO 
Angel Antonio Gil (76 aos) 

C/Pepe Maguregui, 1 - 4. ° B 
26005 Logroo (La Rioja) 
Tel. 22 76 15 

CUARTO PREMIO: 
UNIDAD DE DISCO 
Manuel Parra L6pez (17 
aos) 
C/Montllor i Pujal, 23 
Sabadell (Barcelona) 
Tel. 725 4.9 93 

QUINTO PREMIO: 
UNIDAD DE DISCO 
Vicente Asensi Ortega (13 
aos) 
C/Pexis Mencheta, 23 - 2. ° 
46020 Valencia 
Tel. 361 36 03 
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APUESTA FUERTE 
POR AMSTRAD 

CPC-464: 0esde la estructura del hard- 
apliCaClOnes de ventanas en pantalla y 
CPC-4M Comlos y Tmcos, 2&3 prigs. 
P.V.P. 2.200,. pros, 

cursos de EGO y de 0UP. este hbro 
molecules. Iculo de nteits y muchas 
C PG.4M El libra del ¢01e810. 
lalge. P.V.P. 2.20Q,- p't= '=. 

PEEKS, POKES y CALLS se otilin pare 
Intfodueff al lector de una Iorme Ial- 
mente acceslt)le al sz$terne oprahvo y 
ai lenguale mquzne del CP Propor- 
cone edemds touches e inlelesantes 
poszbhdades de apleaci6n y programa- 
cldn de su CPC 
PEEKS y POKES dl CP¢ 4M/6121. 
180 P|8- P.¥-P. 1.OO0,- ptze. 

.a ecncayprogramacidndelProcesa- - ,i1 El LIORO DEL FLOPPY del CPC Io _ -,1' =Omzna'CPM p°rhnOesdeexphca- 
do ZS0 son os emas de este ht)ro Es =-- ;" II expiica todd sobre Is programacldn con l|lJ c=ones scas pare almacenar nume- 
un bro de estudzo y de consutla ,;,.,,,,''" III1[ dscosylagest=Onrelativadehcheros  -, l::jll I ros. iaprotecc=dncontralaescntura, o 
=mpre$cmdible pare Iodos aquellos due Et:J' I III] med=ante el floppy 001-1 y la umdad de Jl--"J::]lil ASCII, basle la aphcaadn de prooramas 
poseen un Commodore 128. CPC MSX ][|]]tTff tl d=scos incorpora det CP 6648120. *---]m, IJJi auxiliares de CP/M. as= cored oCP.'M 
u otros ordenadores <lU trabalan con el J'P',, mi,, I Ill I.a presente obre. un autnt=co stan- i tar'/IVI-H: .  Ill mterno, pare avanzados, c usno 
ProoesadorZS0ydeSeanproo ramaren :¢I-IIIPPV II 
leflouaee maqu=na 1 m-gill J J, ] ble tanto pare el que desee =n=ciarse en J.m...zw-r (.JliJ ayudas e nlormaoones necosanas. 
:l,.,,,=b, ZOO 50 m P V P . B'er.A/ I [[ ] la progremac,On con discos C0mo pare jz,:zz Ill pare el Iratlo con CPtM. Esle hbro 
',e--7 " "-"''' l.F'1-/6128 IIII eimdscurtidoproo ramaderdeensam" I|'I.B|_' ,lll[ tzeneencutalesversmnesCP/M2.2. 
.... "'--' LI,,=-- = blados Espec=afmente interesante re- It, P| I.P]:_-.'_.Cl iI] asz como CP/M Rus (30). pare el 
::H+'"'eL I III1 todd el DOS y ida muchos proom .... 'E III e18 ,,,," 
::H H H t I HT 
 II1' roe FFI.'.;-;':. '" 
 I El Llbro del Floppy del CP. 353 Prig. 
P.V.P. 2.869,- ptas. 
TEXTOMA T 8 800 ptas. 
AEl procesador de textos ms vendido on .Alemania, 



ercad. ' 
colllUII 

Con el objeto de fomentar las rela- 
ciones entre los usuarios de AMSTRAD, 
MERCADO COMUN te ofrece sus p6gi- 
nas para publicar los pequefios anuncios 
que relacionados con el ordenador y su 
mundo se ajusten al formato indicado a 
continuaci6n. 
En/vlERCADO COMUN tienen cabida, 
anuncios de ventas, compras, clubs de 
usuarios de AMSTRAD, programadores, 
yen general cualquier clase de anuncio 
que pueda servir de utilidad a nuestros 
lectores. 
Envianos tu anuncio mecanografiado 
a: HOBBY PRESS, S.A. 
AMSTRAO SEMANAL. 
Apartado de correos 54.062 
28080 MADRID 
iABSTEN£RSE PIRATAS! 

Urgente vendo Amstrad CPC 
664 con monitor en color 2 discos 
originales con CP/M, logo, base 
de datos, etc., y manual en 
espaol. Garantia oficial Amstrad 
Espaa a estrenar. Todo par 
110.000 pts. Tel. (91) 206 75 21. 
eeeeeoeeeeeeeeeee 
PUBLICIDAD 
iOperaci6n cambio! 
Valoramos: 
Tu AMSTRAD 464 en 50.000 ptas. 
Un Spectrum-,,- en 30.000 ptas. 
Amstrad CPC 664 en 70.000 ptas. 
Fn la compra del AMSTRAD CPC 6128 
o PCW 8256. 
Consulte para monitor color. 
Precios especiales en impresoras y ac- 
cesorios. 
 Tardes 270 34. 97. 
Desear[a contactar con usuarios 
del 464/664/6128 para 
intercambio de programas. Llamar 
de 10 a 11 de la noche o escribir 
a: Julian Calero. C/Catalufia, 
16-5. ° izqda. Basauri (Vizcaya). 
Tel. (94) 440 46 88. 

Vendo ordenador Amstrad 464 
con pantalla de f6sforo verde. 
Tengo m6s de 50 programas y 
varios libros. Regalo joystick y 
modulador. Intercambio 
programas del Amstrad. 
Preguntar par Jose Luis Soriano. 
C/ Reus, 6-1. 46009 Valencia. Tel. 
349 95 48. 

Par necesidades econ6micas 
vendo ordenador Amstrad 
CPC-664 con unidad disco 3" 
incorp., monitor Color 14" y 
progr. CP/M, Logo, Base Datos, 
Prates. Textos, Tasprint, Tascopy y 
6 progrs, m6s, todos en discos. 
Comprado el 5-10-85 con 
garantia oficial. Precio minima 
98.000 pts. al contado (aceptar6 
la mejor oferta). Urge venta. A. 
Moreno. C/Riera Alto, 43, at. 3. a 
08001 Barcelona. 

Desearla contactar con usuarios 
de Amstrad de Zaragoza de 
forma especial para comprar, 
vender, infercambiar, juegos, 
informaci6n ideas sobre el 
ordenador. (Programas pr6cficos, 
uegos...). Compraria joystick en 
uen esfado y barafo. Mi 
direcci6n: Pilar Oay6n Claro. C/ 
San Jgnacio de Loyola, ] - 6. ° A. 
Tel. (976) 22 23 61. Llamar a ser 
0osible 14 a 17 y 20 a 22,30 H. 
PURl IClnAO 

Pedidos contrareembolso a: 
UNIVER SOFTWARE 

Portal de Valencia, sin. Tel. (96) 227 48 2 
• • • • • • • • • • • • • • • • • Xativa (Valencia) 

Desearla confacfar con 
propietarios de CPC 664 y CPC 
6128 para formar un club de 
usuarios en Zaragoza y provincias 
limitrofes. Mariono de la JgJesia. 
Tel. (976) 56 01 07. Zaragoza. 
PUBLICIDAD 
GABINETE D-- T'Fb R-TIA 
• ¢lase,: de Inform6tica 
sabre AMSTRAD 
Exdusivamente individuoles. 
• Ordenadores AMSTRAD y 
perifricos 
Los mejores precios 
• Software a la medida 

ZURBANO, 4 410 47 63 
28010 MADRID 

Vendo libra ,Hacia la 
inteligencia artificial con Amstrad, 
par tener el listado mal, par 500 
pts. Escribir a: Jos6 Martinez 
S6nchez. Avda. Andalucia, 9. Tel. 
(956) 25 37 86. 

Desear[a contactar con usuarios 
CPC 464 para infercambio de 
programas, frucos, ideas, 
informaci6n, etc. Francisco Jos6 
Sampedro Lui6n. Avda. Conde 
Lumiares, 33 - 3. ° C. 03010 
Alicante. Tel. (965) 25 11 76. 
LLamar de 2 a 3 excepto fines de 
semana. 

Vendo impresora Compute 
Mate-100 modelo CPA-80. A 
estrenar. Doble tracci6n-fricci6n, 
100 CPS cable centronic. Funda. 
Garantia. Muy barato. Tardes- 
noches. Ana Saiz. Madrid. Tel. 
(91) 200 57 01. 

Vendo Amsword I <<trat. de 
textos>> (1.700 pts.), Amsbase 
<base de datos>> (1.700 pts.), 
Amscalc <<hoja de cclculo> (3.500 
pts.), Harrier-Attack (800 pts.) y 
Master Chess <<ajedrez>> (1.500 
IutS.), todos originales yen sus 
ndas con los correspondientes 
manuales. Late completo par 
8.000 pts. Tel. (942) 33 13 52. 
1 
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w,Luf uay 2.300 
Map Game 2.750 
Hypersports 2.300 

FRANQUEO 
POSTAL 

//OBBI' PB£,, $.. 
Apartado de Correos N. ° 232 
ALCOBENDAS 
(Madrid) 

World Series Baseball 
Dambusters 
Ajedrez Tridimensional 

2.300 
1.975 

IMPRESORAS: ii20% DE DESCUENTO SOBRE P.V.P.!! 

Lpiz 6ptico DK'Tronics 4.850 
Tapa metacrilato AMSTRAD 1.975 
Toshiba MSX 64 K 39.900 

Diskette 3" 
Cinta C-15 (especial) 
Cassette Especial 

1.050 
85 
5.295 

Joystick Quick Shot II 

Joystick Quick Shot I 

Joystick Quick Shot V 

2.495 ptas. 

1.995 ptas. 

2.995 ptas. 

I Increibles precios para tu AMSTRAD 
464 y 6128 (verde y color). 
(Llmanos y te asombrar&s) 

PC Compatible IBM 256 K 
Monitor Fbsforo Verde 
2 Bocas Diskette 360 K 
279.000 ptas. 

Sabrewulf + Decathlon + Beach 
Head + Jet Set Willy 
2.500 ptas. 

I Commodore 64:42.900 ptas. 
Commodore 128:74.900 ptas. 

El pedido te Io enviamos URGENTEMENTE contra-reembolso SIN NINGUN GASTO DE ENVIO, LLA- 
MANDO a los telfonos: (91) 276 96 16-274 53 80 o escribiendoa MICRO-1. Duque de Sexto, 50.28012 Madrid. 



M 

OLICITUD iJe (.IIVMS D PR-OGItA fA5 
Oferta v61ida hasta el 28 de febrero de 1986. 
Deseo recibir en mi domici[io, al precio de 756 ptas. (IVA induido), los 
 ¢ ,,,,,:, ,., 
siguientes cintas con los progromas publicados par Microhobby AMSTRAD. 
Marco con una (×) [a(s) cinta(s) qua deseo: 
[] (:into n.  1 (contiene programas publicados en revistas 1 al 4 inclusive). 
[] (:into n. ° 2 (contiene programas publicados en revistas 5 al 8 inclusive}. 
NOTA: I-1 (:into m" 3 (contiene programas publicados en revistas 9 a112 inclusive). 
Par razanes adrninistrat/- [] (:into n. ° 4 (contiene programas publicados en revistas 13 a116 inclusive). 
vas, nopodemas odmit;rsdk#u- [] (:into n. ° $ (contiene programas publicados en revistos 17 a120 inclusive}. 
des de env/o de cintas con pago contra [] (:|nto n. 6 (conhene programas publcados en rewstas 21 a140 reclusive). 
talsnreembalS°per el° importeTaqeta dee giroCr#dit°'postal,Per favor, enwb [] Cinta n. o 7 (contiene progromas publicados en revistas 41 a160 inclusive}. 
Silo formadepago elegida es tol6n boncan'o, remitelojunto con [] (:into n. o 8 (contiene programas publicados en revistas 61 a180 inclusive). 
este cup6n en un sabre cerrado a la misma direcciSn. 
los tin/as de programas se ed#an una coda rues. Si so/idtas ratios, los redb?6s sucesivamente, conforme soon editadas. No se cobran gaslos de envio par/as cintas. 
NOMBRE EDAD 
APELLIOOS 

Con el ob 
clones entre I, 
M ERCA DO C 
has para publi DOMICILIO 

que relaciona 
mundo se aius 
continuaci6n. 
En MERCAD 
anuncios de v 
usuarios de A. 
yen general ,- 
que pueda se 
lectores. 
Envianos tu anuncio mecanografiado 
a: HO68Y PRESS, S.A. 
AMSTRAD SEMANAL 
Apartado de correos 54.062 
28080 MADRID 
iABSTENERSE PIRATASJ 

CIUDAD PROVINCIA 
C. POSTAL TELEFONO PROFESION 
;,ERES SUSCRIPTOR DE MICROHOBBY AMSTRAD? N. ° DE SUSCRIPTOR (si Io recuer,las) 
Marco con una (x) en el casillero correspondiente la forma de pago que m6s me conviene. 
[] Tal6n bancario adjunto a nombre HOBBY PRESS, S. A. 
[] Giro Postal a nombre de HOBBY PRESS, S. A., N. ° 
Firma y fecha: 

ooooooooooooooooo 
Urgente vendo Amstrad CPC 
664 con monitor en color 2 discos 
originales con CP/M, logo, base 
de datos, etc., y manual en 
espaol. Garantia oficial Amstrad 
Espaa a estrenar. Todo por 
110.000 pts. Tel. (91) 206 75 21. 
ooooooooooooooooo 
PUBLICIDAD. 
iOperaci6n cambio! 
Valoramos: 
Tu AMSTRAD 464 en -50.000 pros. 
Un Spectrum+ en 30.000 ptas. 
Amstrad CPC 664 en 70,000 plas. 
En la compra del AMSTRAD CPC 6128 
o PCW 8256. 
Consulte para monitor color. 
Precios especiales en impresoras y ac- 
l Tordes 270 34 97. 

Desearia contactar con usuarios 
del 464/664/6128 para 
intercambio de programas. Llamar 
de 10 a 11 de la noche o escribir 
a: Juli6n Calero. C/Catalua, 
16-5. ° izqda. Basauri (Vizcaya). 

IVOreno. .-I IIICIIU /-IIU 'U/ Ul. 
08001 Barcelona. 
OOOOOOOOOOOOOOOO0 

Deseara contactar con usuarios 
de Amstrad de Zaragoza de 
farina especial para comprar, 
vender, intercambiar, juegos, 
informaci6n ideas sabre el 
ordenador. (Programas pr6cticos, 
egOs...). Compraria joystick en 
en estado y barato. Mi 
direcci6n: Pilar Gay6n Clara. C/ 
San Ignacio de Loyola, 1 - 6. ° A. 
Tel. (976) 22 23 61. Llamar a ser 
posible 14 a 17 y 20 a 22,30 H. 
PUBLICIDAD 

Pedidos contrareembolso a: 

Vendo libra <Hacia la 
inteligencia artificial con Amstrad, 
pot tenet el listado mal, por 500 
pts. Escribir a: Jos Martinez 
S6nchez. Avda. Andalucia, 9. Tel. 
(956) 25 37 86. 

OO000000000000000 

Desear[a confactar con usuarios 
CPC 464 para infercambio de 
programas, trucos, ideas, 
informaci6n, etc. Francisco Jos6 
Sampedro Luj6n. Avda. Conde 
Lumiares, 33 - 3. ° C. 03010 
Alicante. Tel. (965) 25 11 76. 
LLamar de 2 a 3 excepto fines de 
semana. 

OOOOOOOOOOOOOOOO0 

Vendo impresora Compute 
Mate-100 modelo CPA-80. A 
estrenar. Doble tracci6n-fricci6n, 
100 CPS cable centronic. Funda. 
Garantia. Muy barato. Tardes- 
noches. Aria Saiz. Madrid. Tel. 
(91) 200 57 01. 

O0000000000000000 

Vendo Amsword I <trat. de 
textos (1.700 pts.), Amsbase 
<base de datos (1.700 pts.), 
Amscalc hoja de c61culo (3.500 
pts.), Harrier-Attack (800 pts.) y 
Master Chess ajedrez (1.500 
tS.), todos originales yen sus 
ndas con los correspondientes 
manuales. Late completo par 

Tel. (94) 440 46 88. UNIVER SOFTWARE 8.000 pts. Tel. (942) 33 13 52. 
Portal de Valencia, sin. Tel. (96) 227 48 21 
• • • • • • • • • • • • • • • • • Xativa (Valencia) • • • • • • • • • • • • • • • • • 

-t- 



Duque de Sexto, 50. 28012 Madrid 
Tels. (91) 274 53 80-276 96 16 

SOFTWARE: iiGRATIS 1 BOLIGRAFO DE ACERO CON RELOJ INCORPORADO!! 

Ptas. Ptas. 
Bounty Bob 2.300 Bruce Lee 2.300 
Fighting Warrior 2.100 Yier Kung Fu 2.300 
Foupack 3.890 Exploding Fist 2.300 
Combat Lynx 2.100 Southern Belle 2.300 
Dummy Run 2.100 Dragontorc 2.300 
Raid 2.300 Rocky 2.100 
Match Day 2.300 World Series Baseball 2.100 
Map Game 2.750 Dambusters 2.300 
Hypersports 2.300 Ajedrez Tridimensional 1.975 

IMPRESORAS: ii20% DE DESCUENTO SOBRE P.V.P.!! 

L&piz 6ptico DK'Tronics 
Tapa metacrilato AMSTRAD 
Toshiba MSX 64 K 

4.850 Diskette 3" 1.050 
1.975 Cinta C-15 (especial) 85 
39.900 Cassette Especial 5.295 

I Joystick Quick Shot II 
2.495 ptas. 

Joystick Quick Shot I 

Joystick Quick Shot V I 
2.995 ptas. 
I 

1.995 ptas. 

I Increibles precios para tu AMSTRAD 
464 y 6128 (verde y color). 
(Ll&manos y te asombrar&s) 

PC Compatible IBM 256 K 
Monitor Fbsforo Verde 
2 Bocas Diskette 360 K 
279.000 ptas. 

Sabrewulf + Decathlon + Beach 
Head + Jet Set Willy 
2.500 ptas. 

I Commodore 64:42.900 ptas. 
Commodore 128:74.900 ptas. 

El pedido te Io enviamos URGENTEMENTE contra-reembolso SIN NINGUN GASTO DE ENVIO, LLA- 
MANDO a los telefonos: (91) 276 96 16-274 53 80 o escribiendoa MICRO-I. Duque de Sexto, 50. 28012 Madrid. 



SEIKOSHA 

CARNAVAL SITGES 

POPULAR HONG • 0 

OPERA C'H3[N .... 

DIOS " "P- 

6EKOSH GP 

C - "N V P,/O SEItOSKA ,, ". 

CEdA_%d CA MANISES OPERA JAI01VESA SFIOSH BP SAT]0 

POPULAR JAPON 

MASCAI  AS 

GP-50 • La pequefia 40 cps. Papcl normal con interface paralelo, serial y Spectrum .................................................. 17.990 ptas. 
GP-700 * La de color 50 cps. 7 colores. 80 columnas. Tracci6n y fricci6n. Papel de 10 pulgadas .................................. 64.990 ptas. 
SP- 1.000 * La programable 100 cps.24 cps en alta calidad 96 cart. programables en RAM. lntroductor hoja a hoja.0 .............. 64.990 ptas. 
SP-1.000AS La programable 100 cps.24 cps en alta calidad con, interface RS-232. Introductor hoja a hoja.0 ......................... 59.900 ptas. 
M P-1.3 0 0 A I La polivalente 300 cps, 60 cps en alta calidad, interface paralelo y RS-232. Introductor hoja a hoja.O& ............... 119.900 ptas. 
BP-5.200 * La de oficina 200 cps, 106 en alia calidad.Buffer 4K.Carro de 15".Tracci6n y fricci6n.# ............................... 199.900 ptas. 
BP-5.420 * La mf.s r,'lpida 420 cps. 106 cps en alta calidad. Buffer de 18K. Paralelo y RS-232. ................................... 299.900 ptas. 

Interfaces: Serie RS-232C, Spectrum, IBM, COMMODORE, MSX, QL, Apple Macintosh, tlP-IB 
0 Disponen de introductor automitico de documentos opcional. 
& Dispone de Kit opcional de color 
Nora: I.V.A. 12%, no inchddo en los precios arriba indicados 

Avda. Blasco Ib&fiez, 116 
Tel. (96) 372.88.89 
Telex 62220 - 46022 VALENCIA 

Muntaner, 60-2.o-4. a 
Tel. (93) 323. 32.19 
08011 BARCELONA 

Agustin de Fox&, 25-3.O-A 
Tels. (91) 733. 57.00-733. 56. 50 
28036 MADRID 

* con interface paralelo 
. con interface Spectrum 



